 
 (deftest generate-passe-compose-1
   (let [result
-        (generate (unifyc
+        (generate (unify
                    {:synsem {:subcat '()}}
                    {:synsem {:sem {:subj {:pred :noi
                                           :gender :fem}

            #?(:cljs [cljs.test :refer-macros [deftest is]])
            #?(:clj [clojure.tools.logging :as log])
            #?(:cljs [babel.logjs :as log]) 
            [dag_unify.core :refer [fail-path fail? get-in strip-refs unifyc]]))

(defn small [] (fr/small))


        result
        (filter #(not (fail? %))
                (map (fn [rule]
                       (unify rule
                               {:head (last (get lexicon "être"))}))
                     (:grammar (small))))]
    (is (not (empty? result)))
