Macros to call a function passed as an argument, where the function may be a macro

gistfile1.clj

(defmacro mfn*
  [[argv] body & args]
  (let [[argv] args]
    body))

(defmacro mfn
  "An macro form which looks like an anonymous function, and can be used to
  inline a function call "
  [args body & arg-vals]
  `(let [~args ~(vec arg-vals)]
     ~body))

(defmacro mapply
  [f & args]
  (if (and (sequential? f) (or (= `mfn (first f))  (= 'mfn (first f))))
    `~(concat f args)
    `(~f ~@args)))

;; (mapply (mfn [x] x) 1)
;; (mapply (mfn [x] (+ x 2)) 1)
;; (mapply (fn [x] (+ x 3)) 1)
;; (mapply inc 1 )