Got rid of extraneous do

calebphillips · Jan 26, 2011 · 2abe594 · 2abe594
1 parent 1e25ec3
commit 2abe594
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/test/snake.clj b/examples/test/snake.clj
@@ -41,7 +41,7 @@
       (is (lose? (-> snake (turn [0 -1]) move move)) "Running into the top wall")
       (is (lose? (first (drop 75 (iterate move snake)))) "Running into the right wall")
       (let [turned-snake (turn snake [0 1])] 
-        (is (lose? (do (first (drop 50 (iterate move turned-snake))))) "Running into the bottom wall"))))
+        (is (lose? (first (drop 50 (iterate move turned-snake)))) "Running into the bottom wall"))))
 
   (deftest test-eats
     (let [eat-me {:location (first (:body snake))}