From 0fb01aeabdb061d63d6434879eaf189834eeddcd Mon Sep 17 00:00:00 2001 From: CrossNox Date: Mon, 28 Nov 2022 15:54:17 -0300 Subject: [PATCH] fix code --- src/rustint/core.clj | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 95a1dc0..7758d3e 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -2412,10 +2412,9 @@ ; [[[String "2"] [i64 6] [i64 2] [i64 3] [i64 0]] [[f64 3] [i64 0]]] ; ^^^ ^ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -; TODO -; (defn cargar-en-ult-reg -; -;) +(defn cargar-en-ult-reg [reg-act dir rtype value] + (assoc-in reg-act [(- (count reg-act) 1) dir] [rtype value]) +) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; CARGAR-EN-REG-DEST: Recibe un vector de registros de activacion, coordenadas, un tipo y un valor. Devuelve el