Source

ocaml-indent / machine2.ml

Diff from to

machine2.ml

 open P
 
 let rec top = lazy (
-  token BEGIN >>= fun () -> !!in_begin
+  token BEGIN >>= fun () -> 
+  !!in_begin
 )
 
 and in_begin = lazy (
-  token END <|> (take_ >>= fun () -> !!in_begin)
+  token END 
+  <|> (take >>= fun tkn -> 
+       
+       !!in_begin)
 )