Skip to content

Instantly share code, notes, and snippets.

@angerman
Created March 15, 2011 11:22
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 angerman/870608 to your computer and use it in GitHub Desktop.
Save angerman/870608 to your computer and use it in GitHub Desktop.
(def *node-counter*)
(defn next-id []
(swap! *node-counter* inc))
(defmacro with-counter [ & body]
`(binding [*node-counter* ~(atom 0)]
~@body))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment