summaryrefslogtreecommitdiff
path: root/src/vm_system.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/vm_system.c')
-rw-r--r--src/vm_system.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vm_system.c b/src/vm_system.c
index c45126f04..179208e0a 100644
--- a/src/vm_system.c
+++ b/src/vm_system.c
@@ -60,6 +60,7 @@ VM_DEFINE_INSTRUCTION (halt, "halt", 0, 0, 0)
POP (ret);
FREE_FRAME ();
SYNC_ALL ();
+ vp->ip = NULL;
scm_dynwind_end ();
return ret;
}
@@ -657,6 +658,7 @@ VM_DEFINE_INSTRUCTION (return, "return", 0, 0, 1)
program = SCM_FRAME_PROGRAM (fp);
CACHE_PROGRAM ();
CACHE_EXTERNAL ();
+ CHECK_IP ();
NEXT;
}