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

* sort.c: typo in comment fixed.

Browse source 
* keywords.c: Added documentation.

* guardians.c: Added documentation (could be better).

* gc.c: Added docs for gc-set-debug-check-freelist.

* eq.c: Added docs for eq?, eqv? equal? abridged from R4RS.

* boolean.c: Added docs for `not', `boolean?' (by hand).
This commit is contained in:
Greg J. Badros 2000-01-26 01:17:16 +00:00
parent 7e2cb69cbc
commit da4a1dbab4
6 changed files with 40 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/boolean.c
View file

@ -53,8 +53,8 @@
SCM_DEFINE (scm_not, "not", 1, 0, 0,
(SCM x),
"")
(SCM x),
"Return #t iff X is #f, else return #f.\n")
#define FUNC_NAME s_scm_not
{
return SCM_BOOL(SCM_FALSEP(x));
@ -64,7 +64,7 @@ SCM_DEFINE (scm_not, "not", 1, 0, 0,
SCM_DEFINE (scm_boolean_p, "boolean?", 1, 0, 0,
(SCM obj),
"")
"Return #t iff OBJ is either #t or #f.\n")
#define FUNC_NAME s_scm_boolean_p
{
return SCM_BOOL(SCM_BOOL_F == obj || SCM_BOOL_T == obj);