let
loc c =
Loc
.merge c.loc (
Loc
.of_lexbuf c.lexbuf)