                                      :sem {:tense :past}
                                      :cat :verb}})
 
-                   (unifyc h21a
+                   (unify h21a
                            root-is-comp
                            {:rule "vp-aux-nonphrasal-complement"
                             :head {:phrasal false

                                     :cat :verb
                                     :sem {:aspect :progressive
                                           :tense :past}}})
                   (unifyc c10
                           root-is-head
                           {:rule "s-present-nonphrasal"
                            :head {:phrasal false}

    :first :head}))

(def h21
  (unify
   subcat-2-principle
   head-principle
   head-first
