diff options
author | Andy Wingo <wingo@pobox.com> | 2016-05-16 10:44:21 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-05-16 10:48:35 +0200 |
commit | 1e058add7b9568fb3a37e4fa82360d183d0a26ee (patch) | |
tree | 2482575eab3cd6b9e47ce98c29f03ed317af7194 /test-suite/tests/rdelim.test | |
parent | da456d23beb1b13063a9817d63797aa08949ba20 (diff) | |
download | guile-1e058add7b9568fb3a37e4fa82360d183d0a26ee.tar.gz |
U+FFFD is the input substitution character
* libguile/ports.c (UNICODE_REPLACEMENT_CHARACTER):
* libguile/ports.c (peek_utf8_codepoint)
(scm_port_decode_char, peek_iconv_codepoint):
* module/ice-9/sports.scm (peek-char-and-len/utf8):
(peek-char-and-len/iconv): Return U+FFFD when we get a decoding error
when reading, instead of '?', in accordance with Unicode
recommendations.
* test-suite/tests/iconv.test:
* test-suite/tests/ports.test:
* test-suite/tests/rdelim.test: Update tests.
* NEWS: Update.
Diffstat (limited to 'test-suite/tests/rdelim.test')
-rw-r--r-- | test-suite/tests/rdelim.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/tests/rdelim.test b/test-suite/tests/rdelim.test index de384c508..3aaa0b253 100644 --- a/test-suite/tests/rdelim.test +++ b/test-suite/tests/rdelim.test @@ -87,7 +87,7 @@ (let ((p (open-bytevector-input-port #vu8(65 255 66 67 68)))) (set-port-encoding! p "UTF-8") (set-port-conversion-strategy! p 'substitute) - (and (string=? (read-line p) "A?BCD") + (and (string=? (read-line p) "A\uFFFDBCD") (eof-object? (read-line p)))))) |