X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/e69ebe6af648e2b6c857a213d2c647ae43f2e580..cda139a7912f2a2d3ca9bab52bf16d41ce4d643f:/libguile/gh_predicates.c

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)));
+}