let action_parse entry ts : Action.t =
                  try entry.estart 0 ts
                  with
                  | Stream.Failure ->
                      Loc.raise (get_prev_loc ts)
                        (Stream.Error ("illegal begin of " ^ entry.ename))
                  | (Loc.Exc_located (_, _) as exc) -> raise exc
                  | exc -> Loc.raise (get_prev_loc ts) exc