mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-20 18:35:59 +00:00
parent 061f7faeca
commit 2a63758b46
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/vm_system.c
View file

@ -212,7 +212,11 @@ VM_DEFINE_INSTRUCTION (external_ref, "external-ref", 1, 0, 1)
unsigned int i; unsigned int i;
SCM e = external; SCM e = external;
for (i = FETCH (); i; i--) for (i = FETCH (); i; i--)
{
CHECK_EXTERNAL(e);
e = SCM_CDR (e); e = SCM_CDR (e);
}
CHECK_EXTERNAL(e);
PUSH (SCM_CAR (e)); PUSH (SCM_CAR (e));
NEXT; NEXT;
} }