Skip to content

Instantly share code, notes, and snippets.

@alandipert

alandipert/seeing.clj

Created April 22, 2014 19:28
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 alandipert/11191355 to your computer and use it in GitHub Desktop.
Save alandipert/11191355 to your computer and use it in GitHub Desktop.
Download ZIP
seeing.clj
Raw
seeing.clj
(defmacro seeing [& body]
`(do
(println "environment"
~(->> (keys &env)
(mapcat #(vector `'~% %))
(apply hash-map)))
(let [res# (do ~@body)]
(println "return value" res#)
res#)))
(defn doit [x y]
(seeing
(+ x y)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment