gistfile1.clj

user> (let [f (fn inner [f]
                      ;; makes it available on this inner-bound runner:
                      (identical? f inner))
            m (with-meta f {:dummy :value})]
            [(f f) (f m) (m f) (m m)])
[true false false true]

user> (let [f (fn inner []
                  inner)
            m (with-meta f {:a 1})]
            [(identical? f (f)) (identical? m (m))])
[true true]