Hi all,
Here is the code from Stu's CL translation.
(defmacro check [& forms]
`(do
~@(map (fn [f] `(report-result ~f '~f)) forms)))
And report-result is:
(defn report-result [result form]
(println (format "%s: %s" (if result "pass" "FAIL") (pr-str form))))
An example run is:
(check (= (+ 1 2) 3) (= (+ 3 4) 8)))
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To post to this group, send email to clojure@googlegroups.com
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
