Fix #945: fix shadow warnings

babashka · Oct 16, 2024 · fbb8e61 · fbb8e61
1 parent 55a76e5
commit fbb8e61
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 7 deletions.
diff --git a/src/sci/impl/analyzer.cljc b/src/sci/impl/analyzer.cljc
@@ -1604,8 +1604,8 @@
                                                                         meth
                                                                         children child-count))
                                       stack))])
-                        (and f-meta (:sci.impl.analyzer/invoke-constructor f-meta))
-                        (invoke-constructor-node ctx (first f) (rest expr))
+                        #?@(:clj [(and f-meta (:sci.impl.analyzer/invoke-constructor f-meta))
+                                  (invoke-constructor-node ctx (first f) (rest expr))])
                         (and (not eval?) ;; the symbol is not a binding
                              (symbol? f)
                              (or
@@ -1882,8 +1882,9 @@
                                     (sci.impl.types/->Node
                                      (faster/deref-1 v)
                                      nil))))
-                              (:sci.impl.analyzer/interop mv)
-                              (analyze-interop ctx expr v)
+                              #?@(:clj
+                                 [(:sci.impl.analyzer/interop mv)
+                                  (analyze-interop ctx expr v)])
                               :else v))
        ;; don't evaluate records, this check needs to go before map?
        ;; since a record is also a map

diff --git a/src/sci/impl/resolve.cljc b/src/sci/impl/resolve.cljc
@@ -71,9 +71,12 @@
                        (with-meta
                          [clazz #?(:clj sym-name
                                    :cljs (.split (str sym-name) "."))]
-                         (if (= "new" sym-name-str)
-                           {:sci.impl.analyzer/invoke-constructor true}
-                           {:sci.impl.analyzer/static-access true}))
+                         #?(:clj
+                            (if (= "new" sym-name-str)
+                              {:sci.impl.analyzer/invoke-constructor true}
+                              {:sci.impl.analyzer/static-access true})
+                            :cljs
+                            {:sci.impl.analyzer/static-access true}))
                        #?(:clj
                           (with-meta
                             [clazz sym-name]