/[guile]/guile/guile-core/libguile/boolean.c
ViewVC logotype

Diff of /guile/guile-core/libguile/boolean.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by mgrabmue, Thu Jul 19 21:08:49 2001 UTC revision 1.21 by ossau, Tue Jan 22 23:31:38 2002 UTC
# Line 46  Line 46 
46    
47  #include "libguile/validate.h"  #include "libguile/validate.h"
48  #include "libguile/boolean.h"  #include "libguile/boolean.h"
49    #include "libguile/lang.h"
50    
51    
52    
# Line 54  SCM_DEFINE (scm_not, "not", 1, 0, 0, Line 55  SCM_DEFINE (scm_not, "not", 1, 0, 0,
55              "Return @code{#t} iff @var{x} is @code{#f}, else return @code{#f}.")              "Return @code{#t} iff @var{x} is @code{#f}, else return @code{#f}.")
56  #define FUNC_NAME s_scm_not  #define FUNC_NAME s_scm_not
57  {  {
58    return SCM_BOOL(SCM_FALSEP(x));    return SCM_BOOL(SCM_FALSEP (x) || SCM_NILP (x));
59  }  }
60  #undef FUNC_NAME  #undef FUNC_NAME
61    
# Line 64  SCM_DEFINE (scm_boolean_p, "boolean?", 1 Line 65  SCM_DEFINE (scm_boolean_p, "boolean?", 1
65              "Return @code{#t} iff @var{obj} is either @code{#t} or @code{#f}.")              "Return @code{#t} iff @var{obj} is either @code{#t} or @code{#f}.")
66  #define FUNC_NAME s_scm_boolean_p  #define FUNC_NAME s_scm_boolean_p
67  {  {
68    return SCM_BOOL (SCM_BOOLP (obj));    return SCM_BOOL (SCM_BOOLP (obj) || SCM_NILP (obj));
69  }  }
70  #undef FUNC_NAME  #undef FUNC_NAME
71    

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26