From 6987a52eee9d37e720573f9bba2f2b0f8385d0f2 Mon Sep 17 00:00:00 2001 From: CrossNox Date: Tue, 29 Nov 2022 00:02:52 -0300 Subject: [PATCH] add gte --- src/rustint/core.clj | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 55b052f..2350730 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -1935,6 +1935,10 @@ ; GT: Como ADD, pero calcula la operacion relacional > entre los dos valores. GT (let [res (aplicar-operador-diadico > pila)] (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs))) + + ; GTE: Como ADD, pero calcula la operacion relacional >= entre los dos valores. + GTE (let [res (aplicar-operador-diadico >= pila)] + (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs))) ) ) )