     :schema-symbol 'h32 ;; used by over-each-parent to know where to put children.
     :first :head}))
 
-(def c00
+(defonce c00
   (unify-check
    head-last
    {:comment "c00"

    :first :head}))

;; h21a is a specialization of h21. it's used for vp-aux to prevent over-generation.
(def h21a
  (merge
   (unify
    h21

;; </TODO: move most of the content to babel.ug>
;; -- END SCHEMA DEFINITIONS

(defonce vp-non-pronoun
  {:comp {:synsem {:pronoun false}}})

(defonce modified {:modified true})
(defonce unmodified {:modified false})

(defonce grammar (list (unify h21
                           {:rule "adjective-phrase"
                            :synsem {:cat :adjective}})

