diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-12-16 15:20:10 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-12-16 23:45:23 +0100 |
commit | 183f784947ad350aab7595cd58874585ac389e79 (patch) | |
tree | 4bd9d013dd6bee6d01b2a6023c5f909e1d7109f9 | |
parent | 18f06db925a67cb6b174a9210f7bed8adced4e00 (diff) | |
download | guile-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.h | 8 | ||||
-rw-r--r-- | 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. */ |