Skip to content
This repository has been archived by the owner on Mar 16, 2019. It is now read-only.

Commit

Permalink
Remove unnecessary lazy-seq in dfs-lazy
Browse files Browse the repository at this point in the history
  • Loading branch information
jamii committed Dec 17, 2012
1 parent 446cf5f commit 2cf0d85
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/main/clojure/clojure/core/logic.clj
Expand Up @@ -1844,7 +1844,7 @@
(defn dfs-lazy [node]
(let [rest-results (apply concat (map dfs-lazy (children node)))]
(if-let [result (value node)]
(cons result (lazy-seq rest-results))
(cons result rest-results)
rest-results)))

(defn dfs-strict [node]
Expand Down

0 comments on commit 2cf0d85

Please sign in to comment.