From e1681b54798d2b363186a4ead1c4a502ce6872ab Mon Sep 17 00:00:00 2001 From: CrossNox Date: Mon, 28 Nov 2022 23:51:46 -0300 Subject: [PATCH] fixes --- src/rustint/core.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index f6eb50b..42f00cf 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -1895,7 +1895,7 @@ ; NOT: Incrementa cont-prg en 1, quita de la pila un elemento booleano, lo niega y lo coloca al final de la pila. NOT (let [ res (not (last pila)), - nueva_pila (assoc pila (count pila) res) + nueva_pila (assoc pila (- (count pila) 1) res) ] (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) ) @@ -1903,7 +1903,7 @@ ; NEG: Incrementa cont-prg en 1, quita de la pila un elemento numerico, le cambia el signo y lo coloca al final de la pila. NEG (let [ res (- (last pila)), - nueva_pila (assoc pila (count pila) res) + nueva_pila (assoc pila (- (count pila) 1) res) ] (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) )