   (:require
    [babel.encyclopedia :as encyc]
    [babel.lexiconfn :refer [compile-lex default
-                            if-then
+                            if-then new-entries
                             map-function-on-map-vals unify
                             verb-pred-defaults]]
    [babel.english.morphology :as morph]

                          {:synsem {:sem {:obj {:pred :top}}}})
                 

                 (default ;; intransitive verbs' :obj is :unspec.
                  {:synsem {:cat :verb
                            :subcat {:1 {:top :top}
                                     :2 '()}
                            :sem {:obj :unspec}}})

                 ;; make an intransitive version of every verb which has an
                 ;; [:sem :obj] path.

   "wake up"
   (let [subject-semantics (atom :top)]
     {:synsem {:cat :verb
               :sem {:pred :wake-up
                     :reflexive true}
               :subcat {:2 '()}}
      :english {:participle "waking up"
                :present {:3sing "wakes up"}
