mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

* src/vm_system.c (br_if_not_null): Set ac = SCM_BOOL_F if not null.

Browse source
This commit is contained in:
Keisuke Nishida 2000-09-20 21:13:12 +00:00
parent 62edbc2330
commit 38870b4313
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/vm_system.c
View file

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