adding blank function (multi-argument)

This commit is contained in:
Colin Jones 2010-05-06 22:07:07 -05:00
parent b5885e8867
commit 88544175c0
2 changed files with 3 additions and 2 deletions

View File

@ -17,5 +17,5 @@
4 5)) 4 5))
"Higher-order functions take function arguments" "Higher-order functions take function arguments"
(= 25 ((fn [f] (f 5)) (= 25 (___
(fn [n] (__ __ __))))) (fn [n] (* n n)))))

View File

@ -2,6 +2,7 @@
(:use clojure.test)) (:use clojure.test))
(def __ nil) (def __ nil)
(def ___ (fn [& args] args))
(defmacro meditations [& forms] (defmacro meditations [& forms]
(let [pairs (partition 2 forms)] (let [pairs (partition 2 forms)]