diff options
author | Mark Galassi <mark+savannah@galassi.org> | 1997-10-20 03:59:37 +0000 |
---|---|---|
committer | Mark Galassi <mark+savannah@galassi.org> | 1997-10-20 03:59:37 +0000 |
commit | 7fee59bd4a8e7e768dc0ecf26756d5c2aaa8463e (patch) | |
tree | 7702c62691d7670a625f7c2f414c048ee5997c7a /libguile/gh_predicates.c | |
parent | 02755d59670a25f6ff7b254cd90392dc000ca09a (diff) | |
download | guile-7fee59bd4a8e7e768dc0ecf26756d5c2aaa8463e.tar.gz |
implemented several missing gh_ functions, mostly related to lists and pairs
Diffstat (limited to 'libguile/gh_predicates.c')
-rw-r--r-- | libguile/gh_predicates.c | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/libguile/gh_predicates.c b/libguile/gh_predicates.c index cb41ebaeb..6d06fdb62 100644 --- a/libguile/gh_predicates.c +++ b/libguile/gh_predicates.c @@ -119,3 +119,19 @@ gh_equal_p (SCM x, SCM y) { return (SCM_NFALSEP (scm_equal_p (x, y))); } + +/* equivalent to (string=? ...), but returns 0 or 1 rather than Scheme + booleans */ +int +gh_string_equal_p(SCM s1, SCM s2) +{ + return (SCM_NFALSEP (scm_string_equal_p(s1, s2))); +} + +/* equivalent to (null? ...), but returns 0 or 1 rather than Scheme + booleans */ +int +gh_null_p(SCM l) +{ + return (SCM_NFALSEP(scm_null_p(l))); +} |