diff options
author | Andy Wingo <wingo@pobox.com> | 2010-04-09 14:15:16 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-04-09 14:15:16 +0200 |
commit | 7c4aad9cc7143ea7c1a7ce3c143ca0581cace5b5 (patch) | |
tree | acd4d0ae57baa19482735f12581ad15e31a747c7 /libguile/evalext.c | |
parent | c1b7c940eca528d8875bc9bd00fba1a885b4dddb (diff) | |
download | guile-7c4aad9cc7143ea7c1a7ce3c143ca0581cace5b5.tar.gz |
add read syntax for #nil
* libguile/evalext.c (scm_self_evaluating_p): #nil is self-evaluating.
* libguile/read.c (scm_read_nil, scm_read_sharp): Add read syntax for
#nil.
Diffstat (limited to 'libguile/evalext.c')
-rw-r--r-- | libguile/evalext.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/evalext.c b/libguile/evalext.c index be775a8e1..b397cbd05 100644 --- a/libguile/evalext.c +++ b/libguile/evalext.c @@ -71,7 +71,7 @@ SCM_DEFINE (scm_self_evaluating_p, "self-evaluating?", 1, 0, 0, return SCM_BOOL_T; case scm_tc3_imm24: /* characters, booleans, other immediates */ - return scm_from_bool (!scm_is_null (obj)); + return scm_from_bool (!scm_is_null_and_not_nil (obj)); case scm_tc3_cons: switch (SCM_TYP7 (obj)) { |