                                                      :pred :definite}}}
                                  :subcat '()}})]
     (log/info (str "reflexive furniture expression:" (display-expression expr)))
-    (is (= (fo expr)
+    (is (= (morph expr)
            "the chair is in front of itself"))))
 
 (deftest infinitive-vp

                                  :number :sing},
                            :cat :noun,
                            :english "Juan"}}}]
    (is (= (fo form)
           "is Juan"))))

(deftest generate-irregular-imperfect

                            :english "Antonio",
                            :cat :noun,
                            :pronoun false}}}]
    (is (= (morph form)
           "is Antonio"))))

(deftest generate-irregular-present-2
