fix code

3 years ago · 25a33d1ec3
parent 7ad9057f35
commit 25a33d1ec3
1 changed files with 3 additions and 4 deletions
--- a/src/rustint/core.clj
+++ b/src/rustint/core.clj
@ -2430,9 +2430,8 @@
 ; [[[String "2"] [i64 6] [i64 2] [f64 3] [i64 0]] [[i64 6] [i64 2] [i64 [0 3]] [i64 [0 4]] [i64 2] [i64 2]]]
 ;                                 ^^^ ^
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-; TODO
-;(defn cargar-en-reg-dest
-;
-;)
+(defn cargar-en-reg-dest [reg-act coords rtype value]
+  (assoc-in reg-act coords [rtype value])
+)

 true