diff options
Diffstat (limited to 'src/vm_system.c')
-rw-r--r-- | src/vm_system.c | 2 |
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; } |