 (def modified {:modified true})
 (def unmodified {:modified false})
 
-(def grammar (list (unifyc h21
+(def grammar (list (unify h21
                            {:rule "adjective-phrase"
                             :synsem {:cat :adjective}})
 
-                   (unifyc h21
+                   (unify h21
                            (let [head-synsem {:cat :intensifier
                                               :modified true}] ;; TODO: document what purpose :modified serves (if any: if none, remove).
                              {:rule "intensifier-phrase"


(def h11-comp-subcat-1
  (let [subcat (atom :top)]
    (unifyc
     {:head {:synsem {:subcat {:1 subcat}}}
      :comp {:synsem {:subcat {:1 subcat}}}}
     subcat-1-1-principle-comp-subcat-1

                                     :infl :conditional
                                     :cat :verb
                                     :sem {:tense :conditional}}})
                   (unify c10
                           root-is-head-root
                           {:rule "s-imperfect-phrasal"
                            :head {:phrasal true}
