same as Clojure 30dd3d8

Author: dnolen

src/main/cljs/cljs/spec.cljc

@@ -393,8 +393,8 @@ specified, return speced vars from all namespaces."
 
 (defmacro instrument
   "Instruments the var at v, a var or symbol, to check specs
-  registered with fdef. Wraps the fn at v to check :args/:ret/:fn
-  specs, if they exist, throwing an ex-info with explain-data if a
+  registered with fdef. Wraps the fn at v to check :args
+  spec, if it exist, throwing an ex-info with explain-data if a
   check fails. Idempotent."
   [v]
   (let [v   (if-not (seq? v) (list 'var v) v)

src/main/cljs/cljs/spec.cljs

@@ -293,13 +293,9 @@
         (if *instrument-enabled*
           (s/with-instrument-disabled
             (let [specs (fn-spec v)]
-              (let [cargs (when (:args specs) (conform! v :args (:args specs) args args))
-                    ret (binding [*instrument-enabled* true]
-                          (apply f args))
-                    cret (when (:ret specs) (conform! v :ret (:ret specs) ret args))]
-                (when (c/and (:args specs) (:ret specs) (:fn specs))
-                  (conform! v :fn (:fn specs) {:args cargs :ret cret} args))
-                ret)))
+              (when (:args specs) (conform! v :args (:args specs) args args))
+              (binding [*instrument-enabled* true]
+                (apply f args))))
           (apply f args)))
       (not (instance? MultiFn f)) (doto (gobj/extend f)))))