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]
(let [pairs (partition 2 forms)]
`(do
~@(doall (map
~@(map
(fn [[doc# code#]]
`(when-not (is ~code# ~doc#)
(System/exit 0)))
pairs)))))
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.")