fixes

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