Source

ocaml-indent / machine.ml

Diff from to

File machine.ml

 
 (* true means I found something to make the token a block *)
 let rec lparen_read_ahead lnum str =
-  match Tokenstr.destr str with
+  match LazyList.peek str with
   | None -> false
   | Some (i, _) when Region.lnum i.Tokenstr.region <> lnum -> false
   | Some (i, str) ->
       | _ -> true
 
 let lbrace_read_ahead lnum str =
-  match Tokenstr.destr str with
+  match LazyList.peek str with
   | None -> false
   | Some (i, _) when Region.lnum i.Tokenstr.region <> lnum -> false
   | Some (i, str) ->