summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2010-12-16 15:20:10 +0100
committerLudovic Courtès <ludo@gnu.org>2010-12-16 23:45:23 +0100
commit183f784947ad350aab7595cd58874585ac389e79 (patch)
tree4bd9d013dd6bee6d01b2a6023c5f909e1d7109f9
parent18f06db925a67cb6b174a9210f7bed8adced4e00 (diff)
downloadguile-183f784947ad350aab7595cd58874585ac389e79.tar.gz
Inline `scm_is_string'.
* libguile/strings.c (scm_is_string): Move to... * libguile/inline.h (scm_is_string): ... here. Inline.
-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. */