summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-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 1fa3625f8..a8b887ea1 100644
--- a/src/vm_system.c
+++ b/src/vm_system.c
@@ -212,7 +212,11 @@ VM_DEFINE_INSTRUCTION (external_ref, "external-ref", 1, 0, 1)
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);
PUSH (SCM_CAR (e));
NEXT;
}