diff --git a/src/rustint/core.clj b/src/rustint/core.clj
index 6a4ab26..95a1dc0 100644
--- 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