diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2002-01-22 23:31:39 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2002-01-22 23:31:39 +0000 |
commit | c96d76b88dcb7805311d14e6e408d064211fde20 (patch) | |
tree | 08d604bcf94ceb35dd271c4c46064ed60644f5b4 /libguile/boolean.c | |
parent | 229d2c9c076d214457f4f6817f7d3c1db90ed994 (diff) | |
download | guile-c96d76b88dcb7805311d14e6e408d064211fde20.tar.gz |
* First batch of libguile changes for Elisp support.
* Fixed a few typos.
* Minor rationalization of macros relating to source breakpoints.
Diffstat (limited to 'libguile/boolean.c')
-rw-r--r-- | libguile/boolean.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/boolean.c b/libguile/boolean.c index da56aab54..402fce55d 100644 --- a/libguile/boolean.c +++ b/libguile/boolean.c @@ -46,6 +46,7 @@ #include "libguile/validate.h" #include "libguile/boolean.h" +#include "libguile/lang.h" @@ -54,7 +55,7 @@ SCM_DEFINE (scm_not, "not", 1, 0, 0, "Return @code{#t} iff @var{x} is @code{#f}, else return @code{#f}.") #define FUNC_NAME s_scm_not { - return SCM_BOOL(SCM_FALSEP(x)); + return SCM_BOOL(SCM_FALSEP (x) || SCM_NILP (x)); } #undef FUNC_NAME @@ -64,7 +65,7 @@ SCM_DEFINE (scm_boolean_p, "boolean?", 1, 0, 0, "Return @code{#t} iff @var{obj} is either @code{#t} or @code{#f}.") #define FUNC_NAME s_scm_boolean_p { - return SCM_BOOL (SCM_BOOLP (obj)); + return SCM_BOOL (SCM_BOOLP (obj) || SCM_NILP (obj)); } #undef FUNC_NAME |