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

* src/vm_scheme.c (cons): Bug fixed.

Browse source 
* src/vm_system.c (br_if_null): Set ac = SCM_BOOL_T if null.
This commit is contained in:
Keisuke Nishida 2000-09-20 09:29:18 +00:00
parent 1304f8b274
commit 6b81b7ae00
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/vm_scheme.c
View file

@ -52,7 +52,7 @@ SCM_DEFINE_VM_FUNCTION (null_p, "null?", "null?", 1, 0)
SCM_DEFINE_VM_FUNCTION (cons, "cons", "cons", 2, 0) SCM_DEFINE_VM_FUNCTION (cons, "cons", "cons", 2, 0)
{ {
VM_SETUP_ARGS2 (); VM_SETUP_ARGS2 ();
CONS (ac, ac, a2); CONS (ac, a1, a2);
NEXT; NEXT;
} }

3
src/vm_system.c
View file

@ -372,7 +372,10 @@ SCM_DEFINE_INSTRUCTION (br_if_null, "%br-if-null", INST_ADDR)
{ {
SCM addr = FETCH (); /* must always fetch */ SCM addr = FETCH (); /* must always fetch */
if (SCM_NULLP (ac)) if (SCM_NULLP (ac))
{
ac = SCM_BOOL_T;
pc = SCM_VM_ADDRESS (addr); pc = SCM_VM_ADDRESS (addr);
}
NEXT; NEXT;
} }