gistfile1.clj

(defmacro defcurried [name args & body]
  `(def ~name
     ~(reduce (fn [body arg]
                `(fn [~arg]
                   ~body))
              (cons `do body)
              (reverse args))))


user> (macroexpand '(defcurried foo [x y] (+ x y)))
(def foo 
  (fn [x] 
    (fn [y] 
      (do (+ x y)))))