invoke a macro like a function

macrofn.clj

;      Invoke a macro like a function - if you dare.
;                        ______ 
;                     .-"      "-. 
;                    /            \ 
;        _          |              |          _ 
;       ( \         |,  .-.  .-.  ,|         / )
;        > "=._     | )(__/  \__)( |     _.=" <
;       (_/"=._"=._ |/     /\     \| _.="_.="\_)
;              "=._ (_     ^^     _)"_.=" 
;                  "=\__|IIIIII|__/="
;                 _.="| \IIIIII/ |"=._
;       _     _.="_.="\          /"=._"=._     _
;      ( \_.="_.="     `--------`     "=._"=._/ )
;       > _.="                            "=._ <
;      (_/                                   \_)

(defmacro ->fn [macro-name]
  `(fn [& args#]
     (-> @#'~macro-name
         (vary-meta dissoc :macro)
         (apply nil nil args#)          ;nils are env and form
         eval)))

(defmacro square [x]
  `(let [x# ~x] (* x# x#)))

(map (->fn square) (range 5))

This would be perfect for Evalive... ascii art and all!