* Makefile.am (DEFS): Added. automake adds -I options to DEFS,

[bpt/guile.git] / libguile / gh_predicates.c

diff --git a/libguile/gh_predicates.c b/libguile/gh_predicates.c
index cb41eba..20a1ab1 100644 (file)
--- a/libguile/gh_predicates.c
+++ b/libguile/gh_predicates.c
@@ -44,7 +44,7 @@
 
 #include <stdio.h>
 
-#include <gh.h>
+#include "libguile/gh.h"
 
 /* type predicates: tell you if an SCM object has a given type */
 int 
@@ -119,3 +119,25 @@ 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)));
+}
+
+/*
+  Local Variables:
+  c-file-style: "gnu"
+  End:
+*/