summaryrefslogtreecommitdiff
path: root/libguile/inline.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/inline.h')
-rw-r--r--libguile/inline.h8
1 files changed, 8 insertions, 0 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. */