let
token_location r = r.cur_loc