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)])))