diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-09-24 15:02:59 -0400 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2010-09-24 15:02:59 -0400 |
| commit | 499b9c02d1932ba0c0651e04b627c25f7f04f0c8 (patch) | |
| tree | 6ccecdf6d77867bcf989e97dbabaf4838b11ba01 | |
| parent | 5bae3168fc29537f71d8bb384696e270f7479788 (diff) | |
cartesian-product nil-arg fix; refs #96
| -rw-r--r-- | modules/combinatorics/src/main/clojure/clojure/contrib/combinatorics.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/modules/combinatorics/src/main/clojure/clojure/contrib/combinatorics.clj b/modules/combinatorics/src/main/clojure/clojure/contrib/combinatorics.clj index 1be12aa4..5ca2b581 100644 --- a/modules/combinatorics/src/main/clojure/clojure/contrib/combinatorics.clj +++ b/modules/combinatorics/src/main/clojure/clojure/contrib/combinatorics.clj @@ -120,7 +120,7 @@ for a longer description.)"} (when v-seqs
(cons (map first v-seqs)
(lazy-seq (step (increment v-seqs)))))))]
- (when (every? first seqs)
+ (when (every? seq seqs)
(lazy-seq (step v-original-seqs)))))
|