summaryrefslogtreecommitdiff
path: root/libguile/strings.c
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2009-08-30 16:48:03 -0700
committerMichael Gran <spk121@yahoo.com>2009-08-30 16:55:17 -0700
commit5f5920e012d953def86a1c04a8e8d1a14b85f1a5 (patch)
treeb870e6bba5d03dbe2d46210998791b96560d47db /libguile/strings.c
parentfac32b518ef9f456e8f6465c00e6c6f40a1123a8 (diff)
downloadguile-5f5920e012d953def86a1c04a8e8d1a14b85f1a5.tar.gz
Fix escape sequence normalization for wide strings
* libguile/strings.c (scm_to_stringn): convert unistring escapes to guile escapes for both wide and narrow strings
Diffstat (limited to 'libguile/strings.c')
-rw-r--r--libguile/strings.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/strings.c b/libguile/strings.c
index 3b8d15db0..06e3359d4 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -1791,6 +1791,8 @@ scm_to_stringn (SCM str, size_t *lenp, const char *encoding,
scm_list_2 (scm_from_locale_string (enc),
str));
}
+ if (handler == SCM_FAILED_CONVERSION_ESCAPE_SEQUENCE)
+ unistring_escapes_to_guile_escapes (&buf, &len);
}
if (lenp)
*lenp = len;