diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/clojure/contrib/graph.clj | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/clojure/contrib/graph.clj b/src/clojure/contrib/graph.clj index 28dc11ca..80e1d80f 100644 --- a/src/clojure/contrib/graph.clj +++ b/src/clojure/contrib/graph.clj @@ -140,7 +140,8 @@ "Is the component (recieved from scc) self recursive?" [g ns] (or (> (count ns) 1) - (some ns (get-neighbors g (first ns))))) + (let [n (first ns)] + (some #(= % n) (get-neighbors g n))))) (defn self-recursive-sets "Returns, as a sequence of sets, the components of a graph that are |