simplifying meditations macro

This commit is contained in:
Colin Jones 2010-05-06 17:38:34 -05:00
parent 896289b64e
commit 608690dca3

View File

@ -6,11 +6,11 @@
(defmacro meditations [& forms] (defmacro meditations [& forms]
(let [pairs (partition 2 forms)] (let [pairs (partition 2 forms)]
`(do `(do
~@(doall (map ~@(map
(fn [[doc# code#]] (fn [[doc# code#]]
`(when-not (is ~code# ~doc#) `(when-not (is ~code# ~doc#)
(System/exit 0))) (System/exit 0)))
pairs))))) pairs))))
(load "about_equalities") (load "about_equalities")
(load "about_lists") (load "about_lists")
@ -22,4 +22,4 @@
(load "about_higher_order_functions") (load "about_higher_order_functions")
(load "about_runtime_polymorphism") (load "about_runtime_polymorphism")
(load "about_sequence_comprehensions") (load "about_sequence_comprehensions")
(println "You have acheived clojure enlightenment. Namaste.") (println "You have achieved clojure enlightenment. Namaste.")