From 608690dca3bd021bf21082b719eb8099c34953c3 Mon Sep 17 00:00:00 2001 From: Colin Jones Date: Thu, 6 May 2010 17:38:34 -0500 Subject: [PATCH] simplifying meditations macro --- src/path_to_enlightenment.clj | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/path_to_enlightenment.clj b/src/path_to_enlightenment.clj index ce1ac21..519a3d9 100644 --- a/src/path_to_enlightenment.clj +++ b/src/path_to_enlightenment.clj @@ -6,11 +6,11 @@ (defmacro meditations [& forms] (let [pairs (partition 2 forms)] `(do - ~@(doall (map - (fn [[doc# code#]] - `(when-not (is ~code# ~doc#) - (System/exit 0))) - pairs))))) + ~@(map + (fn [[doc# code#]] + `(when-not (is ~code# ~doc#) + (System/exit 0))) + pairs)))) (load "about_equalities") (load "about_lists") @@ -22,4 +22,4 @@ (load "about_higher_order_functions") (load "about_runtime_polymorphism") (load "about_sequence_comprehensions") -(println "You have acheived clojure enlightenment. Namaste.") +(println "You have achieved clojure enlightenment. Namaste.")