From 183f784947ad350aab7595cd58874585ac389e79 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 16 Dec 2010 15:20:10 +0100
Subject: [PATCH] Inline `scm_is_string'.

* libguile/strings.c (scm_is_string): Move to...
* libguile/inline.h (scm_is_string): ... here.  Inline.
---
 libguile/inline.h  | 8 ++++++++
 libguile/strings.c | 5 -----
 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.  */