add eq

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