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 d1b9f61aa..4125a456c 100644
--- a/src/vm_system.c
+++ b/src/vm_system.c
@@ -480,6 +480,7 @@ VM_DEFINE_INSTRUCTION (call, "call", 1, -1, 1)
SCM args;
POP_LIST (nargs);
POP (args);
+ SYNC_REGISTER ();
*sp = scm_apply (x, args, SCM_EOL);
NEXT;
}
@@ -601,6 +602,7 @@ VM_DEFINE_INSTRUCTION (tail_call, "tail-call", 1, -1, 1)
SCM args;
POP_LIST (nargs);
POP (args);
+ SYNC_REGISTER ();
*sp = scm_apply (x, args, SCM_EOL);
goto vm_return;
}