File tree 1 file changed +7
-6
lines changed
1 file changed +7
-6
lines changed Original file line number Diff line number Diff line change 1799
1799
1800
1800
(defn check-use-macros-inferring-missing
1801
1801
[ast name use-macros missing-uses env]
1802
- (let [remove-missing-uses #(apply dissoc % (keys missing-uses))
1802
+ (let [remove-missing-uses #(apply dissoc % (keys missing-uses))
1803
1803
missing-renames (missing-renames (:renames ast))
1804
1804
missing-rename-macros (inferred-rename-macros missing-renames env)
1805
1805
remove-missing-renames #(apply dissoc % (keys missing-renames))
1809
1809
(update-in [:uses ] remove-missing-uses)
1810
1810
(update-in [:rename-macros ] merge missing-rename-macros)
1811
1811
(update-in [:renames ] remove-missing-renames))]
1812
- (swap! env/*compiler* #(-> %
1813
- (update-in [::namespaces name :use-macros ] merge (:use-macros ast'))
1814
- (update-in [::namespaces name :uses ] remove-missing-uses)
1815
- (update-in [::namespaces name :rename-macros ] merge (:rename-macros ast'))
1816
- (update-in [::namespaces name :renames ] remove-missing-renames)))
1812
+ (swap! env/*compiler*
1813
+ #(-> %
1814
+ (update-in [::namespaces name :use-macros ] merge (:use-macros ast'))
1815
+ (update-in [::namespaces name :uses ] remove-missing-uses)
1816
+ (update-in [::namespaces name :rename-macros ] merge (:rename-macros ast'))
1817
+ (update-in [::namespaces name :renames ] remove-missing-renames)))
1817
1818
ast'))
1818
1819
1819
1820
(defn parse-ns-error-msg [spec msg]
You can’t perform that action at this time.
0 commit comments