~severeoverfl0w/slow-namespace-clj

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.
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))))