Inline `scm_is_string'.

* libguile/strings.c (scm_is_string): Move to...
* libguile/inline.h (scm_is_string): ... here.  Inline.

diff --git a/libguile/inline.h b/libguile/inline.h
index 018e6c6..9cc23ba 100644 (file)
--- 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 729b33d..71f0b52 100644 (file)
--- 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);
-}
 
 \f
 /* Conversion to/from other encodings.  */