let continue entry loc a s son p1 (__strm : _ Stream.t) =
                  let a = (entry_of_symb entry s).econtinue 0 loc a __strm in
                  let act =
                    try p1 __strm
                    with
                    | Stream.Failure ->
                        raise
                          (Stream.Error (Failed.tree_failed entry a s son))
                  in Action.mk (fun _ -> Action.getf act a)