From bcc7c58862982a5793e22788fc11a9ed7ffc548f Mon Sep 17 00:00:00 2001
From: Chas Emerick <chas@cemerick.com>
Date: Mon, 9 Sep 2013 06:48:24 -0400
Subject: [PATCH] fix recursive odd?/even?

---
 ch01-welcome-repl-interactions.clj | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ch01-welcome-repl-interactions.clj b/ch01-welcome-repl-interactions.clj
index 9e3ed8d..c5477b5 100644
--- a/ch01-welcome-repl-interactions.clj
+++ b/ch01-welcome-repl-interactions.clj
@@ -1,4 +1,3 @@
-
 ;-----
 (defn average
   [numbers]
@@ -542,10 +541,12 @@ p
 
 ;-----
 (letfn [(odd? [n]
-          (even? (dec n)))
+          (if (zero? n)
+            false
+            (even? (dec n))))
         (even? [n]
           (or (zero? n)
-            (odd? (dec n))))]
+              (odd? (dec n))))]
   (odd? 11))
 ;= true