|
|
|
|
@ -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 |
|
|
|
|
|
