Skip to content

Instantly share code, notes, and snippets.

@jirkamarsik

jirkamarsik/lexical_scoping.clj

Forked from anonymous/lexical_scoping.clj
Created December 18, 2012 15:55
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 jirkamarsik/4329199 to your computer and use it in GitHub Desktop.
Save jirkamarsik/4329199 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
lexical_scoping.clj
(defn record-adjunct
"Records an adjunction performed by our rules."
[phrase adjunct]
(swap! adjunctions conj {:name name
:phrase phrase
:adjunct adjunct}))
(def fixed-trees
"A map from tree filenames to their fixed versions."
(into {} (for [[name tree] trees]
[name (fix-tree tree)])))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment