String.split_on_char was added in OCaml 4.04

Author: gasche

lib/mustache.ml

@@ -413,7 +413,7 @@ module Render = struct
     in
 
     let print_indented_string indent s =
-      let lines = Mustache_lexer.split_on_char '\n' s in
+      let lines = String.split_on_char '\n' s in
       align indent; Buffer.add_string buf (List.hd lines);
       List.iter (fun line ->
         Buffer.add_char buf '\n';

lib/mustache_lexer.mll

@@ -39,21 +39,9 @@
       x
     )
 
-  let split_on_char sep s =
-    let open String in
-    let r = ref [] in
-    let j = ref (length s) in
-    for i = length s - 1 downto 0 do
-      if unsafe_get s i = sep then begin
-        r := sub s (i + 1) (!j - i - 1) :: !r;
-        j := i
-      end
-    done;
-    sub s 0 !j :: !r
-
   let split_ident ident =
     if ident = "." then []
-    else split_on_char '.' ident
+    else String.split_on_char '.' ident
 }
 
 let blank = [' ' '\t']*