summaryrefslogtreecommitdiff
path: root/libguile/strings.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/strings.c')
-rw-r--r--libguile/strings.c2
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