Please define phrase-all like so:

[johanatan]

(defn phrase-all [context spec val]
  (some->> (s/explain-data spec val)
           ::s/problems
           (mapv (partial phrase.alpha/phrase context))))

[johanatan]

It returns a vector of all of the problems which can be further processed by the caller.