add retn

src/rustint/core.clj

@@ -2089,6 +2089,10 @@
                 (recur cod (conj regs-de-act reg-act-to-add) next_cont_prg (conj pila retdir) mapa-regs)
           )
 
+          ; RETN: Indica el retorno de la llamada a un procedimiento (no funcion). Llama recursivamente a interpretar con valores actualizados de
+          ; regs-de-act (se elimina el ultimo de ellos), cont-prg (pasa a ser el ultimo valor en la pila) y pila (se quita de ella el nuevo cont-prg).
+          RETN (recur cod (pop regs-de-act) (last pila) (pop pila) mapa-regs)
+
        )
   )
 )