mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +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 2a63758b46
commit ac02b386c2
6 changed files with 71 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/vm_system.c
View file

@ -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;