summaryrefslogtreecommitdiff
path: root/libguile/evalext.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-04-09 14:15:16 +0200
committerAndy Wingo <wingo@pobox.com>2010-04-09 14:15:16 +0200
commit7c4aad9cc7143ea7c1a7ce3c143ca0581cace5b5 (patch)
treeacd4d0ae57baa19482735f12581ad15e31a747c7 /libguile/evalext.c
parentc1b7c940eca528d8875bc9bd00fba1a885b4dddb (diff)
downloadguile-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.c2
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))
{