diff options
author | Andy Wingo <wingo@pobox.com> | 2013-01-15 15:07:15 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-01-15 16:36:55 +0100 |
commit | 686df5162d17d976a0aa7eec75fed42fb3e23eee (patch) | |
tree | a69aaf50a448bc16583248c5cd7cef0297590195 /libguile/bytevectors.c | |
parent | b39685c6da974d5edc5629495c559ab8e1137103 (diff) | |
download | guile-686df5162d17d976a0aa7eec75fed42fb3e23eee.tar.gz |
string->utf8 implementation uses scm_from_utf8_stringn
* libguile/bytevectors.c (UTF_TO_STRING): Use scm_from_utf8_stringn.
Diffstat (limited to 'libguile/bytevectors.c')
-rw-r--r-- | libguile/bytevectors.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c index 4ce90ebdf..9093f49c3 100644 --- a/libguile/bytevectors.c +++ b/libguile/bytevectors.c @@ -2028,8 +2028,7 @@ SCM_DEFINE (scm_string_to_utf32, "string->utf32", scm_list_1 (utf), err); \ else \ { \ - str = scm_from_stringn (c_str, c_strlen, "UTF-8", \ - SCM_FAILED_CONVERSION_ERROR); \ + str = scm_from_utf8_stringn (c_str, c_strlen); \ free (c_str); \ } \ return (str); |