Merge branch 'master' of github.com:clojure/clojurescript

Author: dnolen

src/main/cljs/cljs/spec.cljc

@@ -462,12 +462,16 @@
   ([sym n]
    `(exercise-fn ~sym ~n nil))
   ([sym n fspec]
-   `(let [fspec# ~(if-not fspec
-                    `(cljs.spec/get-spec '~(:name (resolve &env sym)))
-                    fspec)
-          f#     ~sym]
-      (for [args# (gen/sample (gen (:args fspec#)) ~n)]
-        [args# (apply f# args#)]))))
+   (let [sym (cond-> sym
+               (clojure.core/and (sequential? sym)
+                                 (= (first sym) 'quote))
+               second)]
+     `(let [fspec# ~(if-not fspec
+                      `(cljs.spec/get-spec '~(:name (resolve &env sym)))
+                      fspec)
+            f#     ~sym]
+        (for [args# (gen/sample (gen (:args fspec#)) ~n)]
+          [args# (apply f# args#)])))))
 
 (defmacro ^:private init-compile-asserts []
   (let [compile-asserts (not (-> env/*compiler* deref :options :elide-asserts))]

src/test/cljs/cljs/spec_test.cljs

@@ -70,6 +70,12 @@
 (deftest test-cljs-1754
   (is (boolean? (gen/generate (s/gen boolean?)))))
 
+(s/fdef cljs-1757-x :args (s/cat ::first number?) :ret #(= % 2))
+(defn cljs-1757-x [b] 2)
+
+(deftest test-cljs-1757
+  (is (s/exercise-fn `cljs-1757-x)))
+
 ;; Copied from Clojure spec tests
 
 (def even-count? #(even? (count %)))