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

remove custom split_on_char post 4.04

Browse source
This commit is contained in:
Simon Cruanes 2022-02-17 14:37:14 -05:00
parent 01295a71fd
commit 6717d03a35
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/core/CCString.ml
View file

@ -469,9 +469,14 @@ module Split = struct
*) *)
end end
[@@@ifge 4.04]
[@@@else_]
let split_on_char c s: _ list = let split_on_char c s: _ list =
Split.list_cpy ~drop:Split.no_drop ~by:(String.make 1 c) s Split.list_cpy ~drop:Split.no_drop ~by:(String.make 1 c) s
[@@@endif]
(*$= & ~printer:Q.Print.(list string) (*$= & ~printer:Q.Print.(list string)
["a"; "few"; "words"; "from"; "our"; "sponsors"] \ ["a"; "few"; "words"; "from"; "our"; "sponsors"] \
(split_on_char ' ' "a few words from our sponsors") (split_on_char ' ' "a few words from our sponsors")