Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Dynamic scoping in action!
(def ^:dynamic *current-tree-name*)
(defn record-adjunct
"Records an adjunction performed by our rules."
[phrase adjunct]
(swap! adjunctions conj {:name *current-tree-name*
:phrase phrase
:adjunct adjunct}))
(def fixed-trees
"A map from tree filenames to their fixed versions."
(into {} (for [[name tree] trees]
(binding [*current-tree-name* name]
[name (fix-tree tree)]))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment