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 9876cb65a..d1b9f61aa 100644 --- a/src/vm_system.c +++ b/src/vm_system.c @@ -266,6 +266,7 @@ VM_DEFINE_INSTRUCTION (late_variable_ref, "late-variable-ref", 1, 0, 1) if (!SCM_VARIABLEP (pair_or_var)) { + SYNC_BEFORE_GC (); SCM mod = scm_resolve_module (SCM_CAR (pair_or_var)); /* module_lookup might longjmp */ pair_or_var = scm_module_lookup (mod, SCM_CDR (pair_or_var)); @@ -322,6 +323,7 @@ VM_DEFINE_INSTRUCTION (late_variable_set, "late-variable-set", 1, 1, 0) if (!SCM_VARIABLEP (pair_or_var)) { + SYNC_BEFORE_GC (); SCM mod = scm_resolve_module (SCM_CAR (pair_or_var)); /* module_lookup might longjmp */ pair_or_var = scm_module_lookup (mod, SCM_CDR (pair_or_var)); |