Skip to content

Instantly share code, notes, and snippets.

@pepijndevos
Created December 28, 2009 18:45
Show Gist options
  • Save pepijndevos/264840 to your computer and use it in GitHub Desktop.
Save pepijndevos/264840 to your computer and use it in GitHub Desktop.
(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