diff options
| author | Jeffrey Straszheim <straszheimjeffrey@gmail.com> | 2009-02-26 02:43:28 +0000 |
|---|---|---|
| committer | Jeffrey Straszheim <straszheimjeffrey@gmail.com> | 2009-02-26 02:43:28 +0000 |
| commit | b62386e14b447326b43c13b4f94a139a77b4a32e (patch) | |
| tree | 6653c2e1351a72f4269ccf4a2962af31a5789843 /src | |
| parent | 198164d96204437f166abcb89ea3ce830a9a6810 (diff) | |
Tweaks
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 |