Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(defmacro protocol-machine [& forms]
(let [stateforms (filter #(= (str (first %)) "defstate") forms)
names (map second stateforms)]
`(do (declare ~@names) ~@forms)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.