diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-20 18:35:59 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-20 18:35:59 +0000 |
commit | 2a63758b46a9f1b896e209a00b2f718ecd4a8b6f (patch) | |
tree | 5d90a84c7436d3f9910e0daa2b654ad97ab29a85 /src | |
parent | 061f7faeca592437087b66e2d41173583516a626 (diff) | |
download | guile-2a63758b46a9f1b896e209a00b2f718ecd4a8b6f.tar.gz |
*** empty log message ***
Diffstat (limited to 'src')
-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 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; } |