~severeoverfl0w/slow-namespace-clj: Prevent error on self-require

cc541efae8111ff18f73ba465a94380841bd05fc — Dominic Monroe 1 year, 10 months ago 037ca7c

Prevent error on self-require

tns deps considers this circular (which it is) but Clojure seems to
handle it just fine.  sci does this, which is popular enough (via
reitit) that this is a problem.

patch browse

1 files changed, 8 insertions(+), 5 deletions(-)

M src/io/dominic/slow_namespace_clj/core.clj

M src/io/dominic/slow_namespace_clj/core.clj => src/io/dominic/slow_namespace_clj/core.clj +8 -5

@@ 25,11 25,14 @@
   ([scan-cp]
    (reduce
      (fn [graph ns-decl]
-       (reduce
-         (fn [graph dep]
-           (dep/depend graph (parse/name-from-ns-decl ns-decl) dep))
-         graph
-         (parse/deps-from-ns-decl ns-decl)))
+       (let [nm (parse/name-from-ns-decl ns-decl)]
+         (reduce
+           (fn [graph dep]
+             (cond-> graph
+               (not= nm dep)
+               (dep/depend nm dep)))
+           graph
+           (parse/deps-from-ns-decl ns-decl))))
      (dep/graph)
      (recursive-ns-decls scan-cp))))