public
Created

  • Download Gist
gistfile1.clj
Clojure
1 2 3 4 5 6 7 8 9 10 11
(defmacro selfp [x]
`(= ~x '~x))
 
(defmacro maybe-quote [& body]
(cons `do (for [item body]
(if (selfp item)
item
`'~item))))
 
(macroexpand '(maybe-quote stuff :test item))
;; (do (quote stuff) (quote :test) item)

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.