Skip to content

Commit d774e55

Browse files
committed
Update to Java commit 5aaa6a3 (2023.02.10): Fix TNS-6: fully remove ns from deps graph
1 parent 6aaf134 commit d774e55

File tree

2 files changed

+3
-2
lines changed

2 files changed

+3
-2
lines changed

src/main/clojure/clojure/tools/namespace/track.cljc

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -96,7 +96,7 @@
9696
:or {load (), unload (), deps (dep/graph)}} tracker
9797
known (set (dep/nodes deps))
9898
removed-names (filter known names)
99-
new-deps (remove-deps deps removed-names)
99+
new-deps (reduce dep/remove-all deps removed-names)
100100
changed (affected-namespaces deps removed-names)]
101101
(assoc tracker
102102
::deps new-deps

src/test/clojure/clojure/tools/namespace/track_test.clj

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -24,7 +24,8 @@
2424
(let [y (add (tracker) '{ a #{b} b #{c d}})
2525
z (remove y '(d))
2626
w (remove y '(q))]
27-
(is (equal-dep-map? z '(b a) '(a b d) '{b #{c d}, a #{b}} '{d #{b}, c #{b}, b #{a}}))
27+
#_(is (equal-dep-map? z '(b a) '(a b d) '{b #{c d}, a #{b}} '{d #{b}, c #{b}, b #{a}})) ;; with the TNS-6 change, shouldn't this test change?
28+
(is (equal-dep-map? z '(b a) '(a b) '{b #{c}, a #{b}} '{c #{b}, b #{a}}))
2829
(is (= y w))))
2930

3031

0 commit comments

Comments
 (0)