keep-looking even better

vvgomes · Mar 26, 2016 · 64c5784 · 64c5784
1 parent 9ef1690
commit 64c5784
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/little_schemer/chapter09.clj b/src/little_schemer/chapter09.clj
@@ -5,8 +5,8 @@
 (def keep-looking
   (fn [a sorn lat]
     (cond
-      (number? (pick sorn lat))
+      (number? sorn)
         (keep-looking a (pick sorn lat) lat)
       :else
-        (eq? (pick sorn lat) a))))
+        (eq? sorn a))))