Skip to content

Instantly share code, notes, and snippets.

@pepijndevos

pepijndevos/maze-thread.clj

Created December 28, 2009 18:45
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 pepijndevos/264840 to your computer and use it in GitHub Desktop.
Save pepijndevos/264840 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
maze-thread.clj
(defmacro maze-thread [value & exprs]
(let [gen (gensym)]
(concat
`(let [~gen (atom ~value)])
(map (fn [expr] `(swap! ~gen (fn [~'%] ~expr))) exprs))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment