From 589148a66c67059db4a7c7854db846f6f79b2acd Mon Sep 17 00:00:00 2001 From: CrossNox Date: Tue, 29 Nov 2022 00:01:41 -0300 Subject: [PATCH] add eq --- src/rustint/core.clj | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 2f1f9ff..dd1ecbc 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -1923,6 +1923,10 @@ ] (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) ) + + ; EQ: Como ADD, pero calcula la operacion relacional = entre los dos valores. + EQ (let [res (aplicar-operador-diadico = pila)] + (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs))) ) ) )