CLJS-1788: Port CLJ-2004: include retag in multi-spec form

Author: laurio

src/main/cljs/cljs/spec.cljs

@@ -473,7 +473,7 @@
              (when (every? identity gs)
                (gen/one-of gs)))))
        (with-gen* [_ gfn] (multi-spec-impl form mmvar retag gfn))
-       (describe* [_] `(multi-spec ~form))))))
+       (describe* [_] `(multi-spec ~form ~retag))))))
 
 (defn ^:skip-wiki tuple-impl
   "Do not call this directly, use 'tuple'"

src/test/cljs/cljs/spec_test.cljs

@@ -76,6 +76,12 @@
 (deftest test-cljs-1757
   (is (s/exercise-fn `cljs-1757-x)))
 
+(deftest test-cljs-1788
+  (defmulti mm :mm/type)
+  (s/def ::foo-1788 (s/multi-spec mm :mm/type))
+  (is (= (s/form ::foo-1788)
+         '(cljs.spec/multi-spec cljs.spec-test/mm :mm/type))))
+
 ;; Copied from Clojure spec tests
 
 (def even-count? #(even? (count %)))