summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/inline.h8
-rw-r--r--libguile/strings.c5
2 files changed, 8 insertions, 5 deletions
diff --git a/libguile/inline.h b/libguile/inline.h
index 018e6c636..9cc23bada 100644
--- a/libguile/inline.h
+++ b/libguile/inline.h
@@ -332,6 +332,14 @@ scm_is_pair (SCM x)
return SCM_I_CONSP (x);
}
+#ifndef SCM_INLINE_C_INCLUDING_INLINE_H
+SCM_C_EXTERN_INLINE
+#endif
+int
+scm_is_string (SCM x)
+{
+ return SCM_NIMP (x) && (SCM_TYP7 (x) == scm_tc7_string);
+}
/* Port I/O. */
diff --git a/libguile/strings.c b/libguile/strings.c
index 729b33d2e..71f0b5274 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -1405,11 +1405,6 @@ SCM_DEFINE (scm_string_append, "string-append", 0, 0, 1,
}
#undef FUNC_NAME
-int
-scm_is_string (SCM obj)
-{
- return IS_STRING (obj);
-}
/* Conversion to/from other encodings. */