From 824182d12c230919c517ee97af703bc3bb31ae3c Mon Sep 17 00:00:00 2001
From: CrossNox <ijmermet@gmail.com>
Date: Tue, 29 Nov 2022 06:37:24 -0300
Subject: [PATCH] Fix de CAL
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

> Confirmo es un error de la especificacion de CAL, efectivamente se debe agregar con CAL al final de la pila el valor del contador de programa incrementado en 1.
> contador de programa que entró como argumento de interpretar, no argumento de CAL ... Ya fue aclarado en este foro anteriormente...
---
 src/rustint/core.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/rustint/core.clj b/src/rustint/core.clj
index 4fefd6a..0daa5da 100644
--- a/src/rustint/core.clj
+++ b/src/rustint/core.clj
@@ -2084,7 +2084,7 @@
                   argval (second fetched),
                   next_cont_prg argval,
                   reg-act-to-add (get mapa-regs argval),
-                  retdir (inc argval)
+                  retdir (inc cont-prg)
                 ]
                 (recur cod (conj regs-de-act reg-act-to-add) next_cont_prg (conj pila retdir) mapa-regs)
           )