macro checking support

clojure · Jun 1, 2016 · d644079 · d644079
1 parent f75687f
commit d644079
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/main/clojure/cljs/analyzer.cljc b/src/main/clojure/cljs/analyzer.cljc
@@ -2361,7 +2361,11 @@
         (if-not (nil? mac-var)
           (#?@(:clj [binding [*ns* (create-ns *cljs-ns*)]]
                :cljs [do])
-            (let [form' (try
+            (let [mchk  #?(:clj (some-> (find-ns 'clojure.spec)
+                                  (ns-resolve 'macroexpand-check)))
+                  _     #?(:clj (when mchk
+                                  (mchk mac-var (next form))))
+                  form' (try
                           (apply @mac-var form env (rest form))
                           #?(:clj (catch ArityException e
                                     (throw (ArityException. (- (.actual e) 2) (.name e))))))]