diff options
author | Andy Wingo <wingo@pobox.com> | 2010-03-23 20:29:22 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-03-30 10:31:27 +0200 |
commit | 2533f10b40cdab357140347fe05e291f02bb5cb5 (patch) | |
tree | bca95f90c64419a6899ce13a31b1df0cbbcbdb9e /libguile/vm-i-system.c | |
parent | d38b431ace4b01e5da9cb09bb6341277f2974160 (diff) | |
download | guile-2533f10b40cdab357140347fe05e291f02bb5cb5.tar.gz |
nil is null, whee
* libguile/pairs.h (scm_is_null): Nil is also null.
* libguile/vm-i-scheme.c (not, not-not, null?, not-null?):
* libguile/vm-i-system.c (br-if-null, br-if-not-null): Remove some more
nil special cases.
Diffstat (limited to 'libguile/vm-i-system.c')
-rw-r--r-- | libguile/vm-i-system.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index 76ae0691d..c1d949139 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -506,12 +506,12 @@ VM_DEFINE_INSTRUCTION (39, br_if_not_eq, "br-if-not-eq", 3, 0, 0) VM_DEFINE_INSTRUCTION (40, br_if_null, "br-if-null", 3, 0, 0) { - BR (scm_is_null_or_nil (*sp)); + BR (scm_is_null (*sp)); } VM_DEFINE_INSTRUCTION (41, br_if_not_null, "br-if-not-null", 3, 0, 0) { - BR (!scm_is_null_or_nil (*sp)); + BR (!scm_is_null (*sp)); } |