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

Don't use C operators == and != to compare SCM values.

Browse source
This commit is contained in:
Dirk Herrmann 2000-03-29 16:22:57 +00:00
parent 91163914cf
commit fbd485ba49
8 changed files with 52 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/boolean.c
View file

@ -67,7 +67,7 @@ SCM_DEFINE (scm_boolean_p, "boolean?", 1, 0, 0,
"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);
return SCM_BOOL (SCM_BOOLP (obj));
}
#undef FUNC_NAME