diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 412b0a2..eb03d15 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -1947,6 +1947,10 @@ ; LTE: Como ADD, pero calcula la operacion relacional <= entre los dos valores. LTE (let [res (aplicar-operador-diadico <= pila)] (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs))) + + ; MOD: Como ADD, pero calcula el resto de la division. + MOD (let [res (aplicar-operador-diadico rem pila)] + (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs))) ) ) )