From d535ea73f7722b8f952dc49f13401e44ad0f3c59 Mon Sep 17 00:00:00 2001 From: CrossNox Date: Mon, 28 Nov 2022 23:46:09 -0300 Subject: [PATCH] add not --- src/rustint/core.clj | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 4575295..0f64e9a 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -1890,6 +1890,15 @@ PUSHFI (let [res (conj pila (second fetched)) (recur cod regs-de-act (inc cont-prg) res mapa-regs) ]) + + + ; 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) + ] + (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) + ) ) ) )