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