Permalink
Browse files

cartesian-product nil-arg fix; refs #96

  • Loading branch information...
1 parent 5bae316 commit 499b9c02d1932ba0c0651e04b627c25f7f04f0c8 @stuartsierra stuartsierra committed Sep 24, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 modules/combinatorics/src/main/clojure/clojure/contrib/combinatorics.clj
View
2 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)))))

0 comments on commit 499b9c0

Please sign in to comment.