mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* gh_predicates.c (gh_boolean_p, gh_symbol_p, gh_char_p,

Browse source 
gh_vector_p, gh_pair_p, gh_number_p, gh_string_p, gh_procedure_p,
gh_list_p, gh_inexact_p, gh_exact_p, gh_eq_p, gh_eqv_p,
gh_equal_p): Use SCM_NFALSEP, instead of testing against
SCM_BOOL_T.  Any non-false value is true.
This commit is contained in:
Jim Blandy 1997-09-02 23:17:15 +00:00
parent 1ff4df7a83
commit e69ebe6af6
1 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

28
libguile/gh_predicates.c
View file

@ -50,72 +50,72 @@
int
gh_boolean_p (SCM val)
{
return (scm_boolean_p (val) == SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_boolean_p (val)));
}
int
gh_symbol_p (SCM val)
{
return (scm_symbol_p (val) == SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_symbol_p (val)));
}
int
gh_char_p (SCM val)
{
return (scm_char_p (val) == SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_char_p (val)));
}
int
gh_vector_p (SCM val)
{
return (scm_vector_p (val) == SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_vector_p (val)));
}
int
gh_pair_p (SCM val)
{
return (scm_pair_p (val) == SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_pair_p (val)));
}
int
gh_number_p (SCM val)
{
return (scm_number_p (val) == SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_number_p (val)));
}
int
gh_string_p (SCM val)
{
return (scm_string_p (val) == SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_string_p (val)));
}
int
gh_procedure_p (SCM val)
{
return (scm_procedure_p (val) == SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_procedure_p (val)));
}
int
gh_list_p (SCM val)
{
return (scm_list_p (val) == SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_list_p (val)));
}
int
gh_inexact_p (SCM val)
{
return (scm_inexact_p (val) == SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_inexact_p (val)));
}
int
gh_exact_p (SCM val)
{
return (scm_exact_p (val) == SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_exact_p (val)));
}
/* the three types of equality */
int
gh_eq_p (SCM x, SCM y)
{
return (scm_eq_p (x, y) == SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_eq_p (x, y)));
}
int
gh_eqv_p (SCM x, SCM y)
{
return (scm_eqv_p (x, y) != SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_eqv_p (x, y)));
}
int
gh_equal_p (SCM x, SCM y)
{
return (scm_equal_p (x, y) != SCM_BOOL_T) ? 1 : 0;
return (SCM_NFALSEP (scm_equal_p (x, y)));
}