diff options
Diffstat (limited to 'libguile/strings.c')
-rw-r--r-- | libguile/strings.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/strings.c b/libguile/strings.c index d38959413..8bde1bd09 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -37,7 +37,7 @@ SCM_DEFINE (scm_string_p, "string?", 1, 0, 0, "Return @code{#t} if @var{obj} is a string, else @code{#f}.") #define FUNC_NAME s_scm_string_p { - return SCM_BOOL (SCM_STRINGP (obj)); + return scm_from_bool (SCM_STRINGP (obj)); } #undef FUNC_NAME |