let
set_start_p c = c.lexbuf.lex_start_p <-
Loc
.start_pos c.loc