summaryrefslogtreecommitdiff
path: root/libguile/gh_predicates.c
diff options
context:
space:
mode:
authorMark Galassi <mark+savannah@galassi.org>1997-10-20 03:59:37 +0000
committerMark Galassi <mark+savannah@galassi.org>1997-10-20 03:59:37 +0000
commit7fee59bd4a8e7e768dc0ecf26756d5c2aaa8463e (patch)
tree7702c62691d7670a625f7c2f414c048ee5997c7a /libguile/gh_predicates.c
parent02755d59670a25f6ff7b254cd90392dc000ca09a (diff)
downloadguile-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.c16
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)));
+}