fix bytes-utf-8-ref to accept 5 arguments as documented

This commit is contained in:
Matthew Flatt 2019-02-22 18:46:36 -07:00
parent c4a23595b9
commit 75c8c3ce37
2 changed files with 7 additions and 1 deletions

View File

@ -641,6 +641,12 @@
(begin
(test (integer->char (vector-ref code-points 0))
bytes-utf-8-ref s 0)
(test (integer->char (vector-ref code-points 0))
bytes-utf-8-ref s 0 #f)
(test (integer->char (vector-ref code-points 0))
bytes-utf-8-ref s 0 #f 0)
(test (integer->char (vector-ref code-points 0))
bytes-utf-8-ref s 0 #f 0 (bytes-length s))
(test (integer->char (vector-ref code-points
(sub1 (vector-length code-points))))
bytes-utf-8-ref s (sub1 (vector-length code-points)))

View File

@ -677,7 +677,7 @@ scheme_init_string (Scheme_Startup_Env *env)
scheme_addto_prim_instance("bytes-utf-8-ref",
scheme_make_immed_prim(byte_string_utf8_ref,
"bytes-utf-8-ref",
2, 4),
2, 5),
env);
scheme_addto_prim_instance("bytes->string/utf-8",