let with_curr_loc f c = f (update_loc c) c.lexbuf