CLJS-2888: Printing of spec problems buries the failing predicate which should be more prominent

Author: mfikes

src/main/cljs/cljs/spec/alpha.cljs

@@ -222,18 +222,15 @@
         (with-out-str
           ;;(prn {:ed ed})
           (doseq [{:keys [path pred val reason via in] :as prob} problems]
-            (when-not (empty? in)
-              (print "In:" (pr-str in) ""))
-            (print "val: ")
             (pr val)
-            (print " fails")
-            (when-not (empty? via)
-              (print " spec:" (pr-str (last via))))
+            (print " - failed: ")
+            (if reason (print reason) (pr (abbrev pred)))
+            (when-not (empty? in)
+              (print (str " in: " (pr-str in))))
             (when-not (empty? path)
-              (print " at:" (pr-str path)))
-            (print " predicate: ")
-            (pr (abbrev pred))
-            (when reason (print ", " reason))
+              (print (str " at: " (pr-str path))))
+            (when-not (empty? via)
+              (print (str " spec: " (pr-str (last via)))))
             (doseq [[k v] prob]
               (when-not (#{:path :pred :val :reason :via :in} k)
                 (print "\n\t" (pr-str k) " ")