Skip to content

Instantly share code, notes, and snippets.

/gist:4372506

Created December 25, 2012 10:02
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/4372506 to your computer and use it in GitHub Desktop.
Save anonymous/4372506 to your computer and use it in GitHub Desktop.
Download ZIP
confusion.
Raw
gistfile1.clj
(def my-atom (atom []))
user> ((fn [f]
(println "FORM::" f)
(println "ACCEPTABLE?" (and (seq? f) (= 'quote (first f)))
(when (and (seq? f) (= 'quote (first f))
(swap! my-atom #(cons f %)))))) (quote clojure.core/*))
FORM:: clojure.core/*
ACCEPTABLE? false nil
nil
user> ((fn [f]
(println "FORM::" f)
(println "ACCEPTABLE?" (and (seq? f) (= 'quote (first f)))
(when (and (seq? f) (= 'quote (first f))
(swap! my-atom #(cons f %)))))) '(quote clojure.core/*))
FORM:: (quote clojure.core/*)
ACCEPTABLE? true nil
nil
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment