summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-04-20 18:35:59 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-04-20 18:35:59 +0000
commit2a63758b46a9f1b896e209a00b2f718ecd4a8b6f (patch)
tree5d90a84c7436d3f9910e0daa2b654ad97ab29a85 /src
parent061f7faeca592437087b66e2d41173583516a626 (diff)
downloadguile-2a63758b46a9f1b896e209a00b2f718ecd4a8b6f.tar.gz
*** empty log message ***
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;
}