exception Unclosed of string * Parse_info.tval mk_trees : 'tok hooks -> 'tok list -> Ast_fuzzy.treesval mk_tokens :
'tok hooks ->
'tok list ->
(Parse_info.token_kind * Parse_info.t) listtype visitor_out = Ast_fuzzy.trees -> unittype visitor_in = {ktree : ((Ast_fuzzy.tree -> unit) * visitor_out) -> Ast_fuzzy.tree -> unit;ktrees : ((Ast_fuzzy.trees -> unit) * visitor_out) -> Ast_fuzzy.trees -> unit;ktok : ((Ast_fuzzy.tok -> unit) * visitor_out) -> Ast_fuzzy.tok -> unit;}val default_visitor : visitor_inval mk_visitor : visitor_in -> visitor_outval toks_of_trees : Ast_fuzzy.trees -> Ast_fuzzy.tok listval abstract_position_trees : Ast_fuzzy.trees -> Ast_fuzzy.trees