diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2008-12-17 21:58:57 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2008-12-17 21:58:57 +0000 |
| commit | ee71be1a1191d487cce22302d5f35f4a8649da7b (patch) | |
| tree | b33144bc13ad150669595c6bef1539dcfc73209f /src/clojure/contrib/test_clojure | |
| parent | 2c2cf4b718b4df32d984ffd5a91e9a72534d8630 (diff) | |
test_clojure/for.clj: fix typo ("is" should be "if")
Diffstat (limited to 'src/clojure/contrib/test_clojure')
| -rw-r--r-- | src/clojure/contrib/test_clojure/for.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/contrib/test_clojure/for.clj b/src/clojure/contrib/test_clojure/for.clj index 1e4d7063..6cd6296d 100644 --- a/src/clojure/contrib/test_clojure/for.clj +++ b/src/clojure/contrib/test_clojure/for.clj @@ -86,7 +86,7 @@ (is (= (for [x (only 6) :while (< x 5) :when (odd? x)] x) '(1 3))) (is (= (for [x (only 6) :while (< x 5) ; if :while is false, :when should not be evaled - :when (do (is (< x 5) (odd? x)))] x) '(1 3)))) + :when (do (if (< x 5) (odd? x)))] x) '(1 3)))) (deftest Nesting (is (= (for [x '(a b) y (interpose x '(1 2)) z (list x y)] [x y z]) |