File tree Expand file tree Collapse file tree 1 file changed +7
-6
lines changed Expand file tree Collapse file tree 1 file changed +7
-6
lines changed Original file line number Diff line number Diff line change 17991799
18001800(defn check-use-macros-inferring-missing
18011801 [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))
18031803 missing-renames (missing-renames (:renames ast))
18041804 missing-rename-macros (inferred-rename-macros missing-renames env)
18051805 remove-missing-renames #(apply dissoc % (keys missing-renames))
18091809 (update-in [:uses ] remove-missing-uses)
18101810 (update-in [:rename-macros ] merge missing-rename-macros)
18111811 (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)))
18171818 ast'))
18181819
18191820(defn parse-ns-error-msg [spec msg]
You can’t perform that action at this time.
0 commit comments