Skip to content

Instantly share code, notes, and snippets.

Created June 3, 2012 06:59
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/da2c822bcf20a81cb103 to your computer and use it in GitHub Desktop.
Save anonymous/da2c822bcf20a81cb103 to your computer and use it in GitHub Desktop.
(defn- unquote-project
"Inside defproject forms, unquoting (~) allows for arbitrary evaluation."
[args]
(walk/walk (fn [item]
(cond (and (seq? item) (= `unquote (first item))) (second item)
;; needed if we want fn literals preserved
(or (seq? item) (symbol? item)) (list 'quote item)
:else (unquote-project item)))
identity
args))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment