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.c6
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;