File tree Expand file tree Collapse file tree 2 files changed +3
-3
lines changed Expand file tree Collapse file tree 2 files changed +3
-3
lines changed Original file line number Diff line number Diff line change 2145
2145
(.getPath ^URL res))
2146
2146
cache (when (:cache-analysis opts)
2147
2147
(cache-file res ns-info output-dir))]
2148
- (when-not (get-in @env/*compiler* [::namespaces (:ns ns-info)])
2148
+ (when-not (get-in @env/*compiler* [::namespaces (:ns ns-info) :defs ])
2149
2149
(if (or (not cache)
2150
2150
(requires-analysis? res output-dir))
2151
2151
(binding [*cljs-ns* 'cljs.user
Original file line number Diff line number Diff line change 1103
1103
(if (requires-compilation? src-file dest-file opts)
1104
1104
(do
1105
1105
(util/mkdirs dest-file)
1106
- (when (and (contains? ( ::ana/namespaces @env/*compiler*) ns )
1106
+ (when (and (get-in @env/*compiler* [ ::ana/namespaces ns :defs ] )
1107
1107
(not= ns 'cljs.core))
1108
1108
(swap! env/*compiler* update-in [::ana/namespaces ] dissoc ns ))
1109
1109
(let [ret (compile-file* src-file dest-file opts)]
1117
1117
; ; populate compilation environment with analysis information
1118
1118
; ; when constants are optimized
1119
1119
(when (and (true ? (:optimize-constants opts))
1120
- (not ( contains ? (::ana/namespaces @env/*compiler*) ns )))
1120
+ (nil ? (get-in @env/*compiler* [ ::ana/namespaces ns :defs ] )))
1121
1121
(with-core-cljs opts (fn [] (ana/analyze-file src-file opts))))
1122
1122
ns-info)))
1123
1123
(catch Exception e
You can’t perform that action at this time.
0 commit comments