File tree 1 file changed +7
-4
lines changed
1 file changed +7
-4
lines changed Original file line number Diff line number Diff line change 1805
1805
1806
1806
(defn check-use-macros-inferring-missing
1807
1807
[{:keys [name uses use-macros] :as ast} env]
1808
- (let [missing-uses (when (and *analyze-deps* (seq uses))
1809
- (missing-uses uses env))
1808
+ (let [missing-uses (when (and *analyze-deps* (seq uses))
1809
+ (missing-uses uses env))
1810
+ maybe-macros (apply dissoc uses (keys missing-uses))
1810
1811
remove-missing-uses #(apply dissoc % (keys missing-uses))
1811
1812
ast' (-> ast
1812
- (update-in [:use-macros ] merge
1813
- (check-use-macros use-macros missing-uses env))
1813
+ (update-in [:use-macros ]
1814
+ #(-> %
1815
+ (merge (check-use-macros use-macros missing-uses env))
1816
+ (merge (inferred-use-macros maybe-macros env))))
1814
1817
(update-in [:uses ] remove-missing-uses))]
1815
1818
(swap! env/*compiler*
1816
1819
#(-> %
You can’t perform that action at this time.
0 commit comments