fix bytes-utf-8-ref
to accept 5 arguments as documented
This commit is contained in:
parent
c4a23595b9
commit
75c8c3ce37
|
@ -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)))
|
||||
|
|
|
@ -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",
|
||||
|
|
Loading…
Reference in New Issue
Block a user