fork download
copy 
  1. (defmacro get-env []
  2.   (let [
  3.         a-name (gensym)
  4.         a (eval `(do (def ~a-name (atom nil)) ~a-name))]
  5.     (reset! a &env)
  6.     `(deref ~a-name)))
  7.  
  8. (println (let [a 1] (get-env)))
Success #stdin #stdout 1.19s 220224KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
{a #<LocalBinding clojure.lang.Compiler$LocalBinding@16925b0>}
https://ideone.com/BTJxYN
language:
Clojure (clojure 1.10.0)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!