From ef8d19ac65b58406b5dc5aa750c1e319a8181411 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Mon, 3 Dec 2018 09:47:35 -0600 Subject: [PATCH] some typos in unlabel --- src/unlabel.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/unlabel.ml b/src/unlabel.ml index 443786d2..ad1076ef 100644 --- a/src/unlabel.ml +++ b/src/unlabel.ml @@ -28,7 +28,7 @@ let search_all pat s = 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 pos = search pat s 0 in let patl = String.length pat @@ -43,7 +43,7 @@ let replace_first pat subst s = 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 pos = search_all pat s in let patl = String.length pat