let skip_if_empty bp strm =
                  if (loc_bp strm) = bp
                  then Action.mk (fun _ -> raise Stream.Failure)
                  else raise Stream.Failure