File tree 1 file changed +6
-2
lines changed
1 file changed +6
-2
lines changed Original file line number Diff line number Diff line change 1824
1824
(defn check-rename-macros-inferring-missing
1825
1825
[{:keys [name renames] :as ast} env]
1826
1826
(let [missing-renames (when (and *analyze-deps* (seq renames))
1827
- (missing-renames (:renames ast) env))
1827
+ (missing-renames renames env))
1828
+ maybe-macros (apply dissoc renames (keys missing-renames))
1828
1829
missing-rename-macros (inferred-rename-macros missing-renames env)
1829
1830
remove-missing-renames #(apply dissoc % (keys missing-renames))
1830
1831
ast' (-> ast
1831
- (update-in [:rename-macros ] merge missing-rename-macros)
1832
+ (update-in [:rename-macros ]
1833
+ #(-> %
1834
+ (merge missing-rename-macros)
1835
+ (merge (inferred-rename-macros maybe-macros env))))
1832
1836
(update-in [:renames ] remove-missing-renames))]
1833
1837
(swap! env/*compiler*
1834
1838
#(-> %
You can’t perform that action at this time.
0 commit comments