let _ =
List.iter (fun keyword -> Hashtbl.add keywords keyword ("", keyword))
[ "Prop"; "Type"; "Set"; "let"; "Let"; "rec"; "using"; "match"; "with";
- "in"; "and" ]
+ "in"; "and"; "to" ]
let error lexbuf msg =
raise (Error (Ulexing.lexeme_start lexbuf, Ulexing.lexeme_end lexbuf, msg))