diff options
Diffstat (limited to 'src/vm_system.c')
-rw-r--r-- | src/vm_system.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/vm_system.c b/src/vm_system.c index a8b887ea1..12aa02f72 100644 --- a/src/vm_system.c +++ b/src/vm_system.c @@ -248,7 +248,11 @@ VM_DEFINE_INSTRUCTION (external_set, "external-set", 1, 1, 0) unsigned int i; SCM e = external; for (i = FETCH (); i; i--) - e = SCM_CDR (e); + { + CHECK_EXTERNAL(e); + e = SCM_CDR (e); + } + CHECK_EXTERNAL(e); SCM_SETCAR (e, *sp); DROP (); NEXT; |