diff options
Diffstat (limited to 'libguile/inline.h')
-rw-r--r-- | libguile/inline.h | 8 |
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. */ |