mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* First batch of libguile changes for Elisp support.

Browse source 
* Fixed a few typos.
* Minor rationalization of macros relating to source breakpoints.
This commit is contained in:
Neil Jerram 2002-01-22 23:31:39 +00:00
parent 229d2c9c07
commit c96d76b88d
28 changed files with 275 additions and 195 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/boolean.c
View file

@ -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