CLJS-2840: [spec] s/keys explain-data :pred problem

Author: mfikes

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

@@ -417,7 +417,7 @@
               ret))))
       (explain* [_ path via in x]
         (if-not (map? x)
-          [{:path path :pred 'map? :val x :via via :in in}]
+          [{:path path :pred `map? :val x :via via :in in}]
           (let [reg (registry)]
             (apply concat
                    (when-let [probs (->> (map (fn [pred form] (when-not (pred x) form))

src/test/cljs/cljs/spec_test.cljs

@@ -304,6 +304,9 @@
     [] 'cljs.core/int?
     [0 2] '(cljs.spec.alpha/& cljs.core/int? cljs.core/even?)))
 
+(deftest keys-explain-pred
+  (is (= 'cljs.core/map? (-> (s/explain-data (s/keys :req [::x]) :a) ::s/problems first :pred))))
+
 (s/fdef foo.bar/cljs-2275
   :args (s/cat :k keyword?)
   :ret  string?)