add neg

src/rustint/core.clj

@@ -1899,6 +1899,14 @@
                 ]
                   (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs)
               )
+
+          ; 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)
+                ]
+                  (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs)
+              )
        )
   )
 )