conditionalize cljs.analyzer/ns-side-effects, only for :clj

Author: swannodette

src/main/clojure/cljs/analyzer.cljc

@@ -2445,36 +2445,37 @@
           ast))
       ast)))
 
-(defn ns-side-effects
-  [env {:keys [op] :as ast} opts]
-  (if (= :ns op)
-    (let [{:keys [deps uses require-macros use-macros reload reloads]} ast]
-      (when (and *analyze-deps* (seq deps))
-        (analyze-deps name deps env (dissoc opts :macros-ns)))
-      (when (and *analyze-deps* (seq uses))
-        (check-uses uses env))
-      (when *load-macros*
-        (load-core)
-        (doseq [nsym (vals use-macros)]
-          (let [k (or (:use-macros reload)
-                      (get-in reloads [:use-macros nsym])
-                      (and (= nsym name) *reload-macros* :reload))]
-            (if k
-              (clojure.core/require nsym k)
-              (clojure.core/require nsym))
-            (intern-macros nsym k)))
-        (doseq [nsym (vals require-macros)]
-          (let [k (or (:require-macros reload)
-                      (get-in reloads [:require-macros nsym])
-                      (and (= nsym name) *reload-macros* :reload))]
-            (if k
-              (clojure.core/require nsym k)
-              (clojure.core/require nsym))
-            (intern-macros nsym k)))
-        (when (seq use-macros)
-          (check-use-macros use-macros env)))
-      ast)
-    ast))
+#?(:clj
+   (defn ns-side-effects
+     [env {:keys [op] :as ast} opts]
+     (if (= :ns op)
+       (let [{:keys [deps uses require-macros use-macros reload reloads]} ast]
+         (when (and *analyze-deps* (seq deps))
+           (analyze-deps name deps env (dissoc opts :macros-ns)))
+         (when (and *analyze-deps* (seq uses))
+           (check-uses uses env))
+         (when *load-macros*
+           (load-core)
+           (doseq [nsym (vals use-macros)]
+             (let [k (or (:use-macros reload)
+                       (get-in reloads [:use-macros nsym])
+                       (and (= nsym name) *reload-macros* :reload))]
+               (if k
+                 (clojure.core/require nsym k)
+                 (clojure.core/require nsym))
+               (intern-macros nsym k)))
+           (doseq [nsym (vals require-macros)]
+             (let [k (or (:require-macros reload)
+                       (get-in reloads [:require-macros nsym])
+                       (and (= nsym name) *reload-macros* :reload))]
+               (if k
+                 (clojure.core/require nsym k)
+                 (clojure.core/require nsym))
+               (intern-macros nsym k)))
+           (when (seq use-macros)
+             (check-use-macros use-macros env)))
+         ast)
+       ast)))
 
 (def ^:dynamic *passes* nil)