diff options
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/print.c b/libguile/print.c index 4c3e87418..94d1ba5c4 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -967,7 +967,6 @@ Does not add a trailing newline.") SCM_VALIDATE_STRING(2,message); SCM_VALIDATE_LIST(3,args); - SCM_COERCE_SUBSTR (message); start = SCM_ROCHARS (message); for (p = start; *p != '\0'; ++p) if (*p == '~') @@ -993,7 +992,7 @@ Does not add a trailing newline.") if (fReturnString) answer = scm_strport_to_string (destination); - return answer; + return scm_return_first(answer,message); } #undef FUNC_NAME |