simon/iter
1
0
Fork 0
mirror of https://github.com/c-cube/iter.git synced 2025-12-06 11:15:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

small fixes

Browse source
This commit is contained in:
Simon Cruanes 2017-12-15 12:49:56 +01:00
parent eace3581f1
commit 2417b8e5fd
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
_tags
View file

@ -27,7 +27,7 @@
<bench/*.ml{,i}>: pkg_benchmark <bench/*.ml{,i}>: pkg_benchmark
<bench/*.ml{,i}>: use_sequence <bench/*.ml{,i}>: use_sequence
# OASIS_STOP # OASIS_STOP
true: bin_annot, color(always) true: safe_string, bin_annot, color(always)
<**/*.ml>: warn(+a-4-44-48@8) <**/*.ml>: warn(+a-4-44-48@8)
<src/bigarray/*.ml>: warn(-33) <src/bigarray/*.ml>: warn(-33)
true: mark_tag_used true: mark_tag_used

2
src/Sequence.ml
View file

@ -1107,7 +1107,7 @@ let to_buffer seq buf =
(*$R (*$R
let b = Buffer.create 4 in let b = Buffer.create 4 in
"hello world" "hello world"
|> of_str |> rev |> map Char.uppercase |> of_str |> rev |> map Char.uppercase_ascii
|> (fun seq -> to_buffer seq b); |> (fun seq -> to_buffer seq b);
OUnit.assert_equal "DLROW OLLEH" (Buffer.contents b); OUnit.assert_equal "DLROW OLLEH" (Buffer.contents b);
*) *)