File tree Expand file tree Collapse file tree 2 files changed +3
-6
lines changed Expand file tree Collapse file tree 2 files changed +3
-6
lines changed Original file line number Diff line number Diff line change @@ -1979,7 +1979,7 @@ argument, which the reader will use in any emitted errors."
1979
1979
cache (when (or (= (:ns ns-info) 'cljs.core)
1980
1980
(and (:cache-analysis opts) output-dir))
1981
1981
(cache-file res ns-info output-dir))]
1982
- (when-not (get-in @env/*compiler* [::analyzed-cljs path ])
1982
+ (when-not (get-in @env/*compiler* [::namespaces ( :ns ns-info) ])
1983
1983
(if (or (not= (:ns ns-info) 'cljs.core)
1984
1984
(not cache)
1985
1985
(requires-analysis? res output-dir))
@@ -1999,8 +1999,7 @@ argument, which the reader will use in any emitted errors."
1999
1999
(recur ns (next forms))))
2000
2000
ns ))]
2001
2001
(when (and cache (true ? (:cache-analysis opts)))
2002
- (write-analysis-cache ns cache))
2003
- (swap! env/*compiler* assoc-in [::analyzed-cljs path] true )))
2002
+ (write-analysis-cache ns cache))))
2004
2003
; ; we want want to keep dependency analysis information
2005
2004
; ; don't revert the environment - David
2006
2005
(let [{:keys [ns ]}
@@ -2017,5 +2016,4 @@ argument, which the reader will use in any emitted errors."
2017
2016
(doseq [x (get-in cached-ns [::constants :order ])]
2018
2017
(register-constant! x))
2019
2018
(-> cenv
2020
- (assoc-in [::analyzed-cljs path] true )
2021
2019
(assoc-in [::namespaces ns ] cached-ns))))))))))))))
Original file line number Diff line number Diff line change 1015
1015
:source-map-timestamp (:source-map-timestamp opts)
1016
1016
:source-map-pretty-print (:source-map-pretty-print opts)}))))
1017
1017
(let [path (.getPath (.toURL ^File dest))]
1018
- (swap! env/*compiler* assoc-in [::compiled-cljs path] ret)
1019
- (swap! env/*compiler* assoc-in [::ana/analyzed-cljs path] true ))
1018
+ (swap! env/*compiler* assoc-in [::compiled-cljs path] ret))
1020
1019
(let [{:keys [output-dir cache-analysis]} opts]
1021
1020
(when (and (true ? cache-analysis) output-dir)
1022
1021
(ana/write-analysis-cache ns-name
You can’t perform that action at this time.
0 commit comments