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

some typos in unlabel

Browse source
This commit is contained in:
Simon Cruanes 2018-12-03 09:47:35 -06:00
parent 197b4e7f1b
commit ef8d19ac65
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/unlabel.ml
View file

@ -28,7 +28,7 @@ let search_all pat s =
List.rev (search_rest [] 0) List.rev (search_rest [] 0)
;; ;;
(* replase first occurence of pat with subst in s *) (* replace first occurrence of pat with subst in s *)
let replace_first pat subst s = let replace_first pat subst s =
let pos = search pat s 0 in let pos = search pat s 0 in
let patl = String.length pat let patl = String.length pat
@ -43,7 +43,7 @@ let replace_first pat subst s =
Bytes.unsafe_to_string buf Bytes.unsafe_to_string buf
;; ;;
(* replase first occurence of pat with subst in s *) (* replace all occurrences of pat with subst in s *)
let replace_all pat subst s = let replace_all pat subst s =
let pos = search_all pat s in let pos = search_all pat s in
let patl = String.length pat let patl = String.length pat