let drop_prev_loc strm =
                  stream_map (fun (tok, r) -> (tok, (r.cur_loc))) strm