                                :1plur "disons"
                                :2plur "dites"
                                :3plur "disent"}}}]
-     [(merge shared-part-of-dire
-             {:synsem {:pred :say}})
-      (merge shared-part-of-dire
-             {:synsem {:pred :tell}})])
+     [(unify shared-part-of-dire
+             {:synsem {:sem {:pred :say}}})
+      (unify shared-part-of-dire
+             {:synsem {:sem {:pred :tell}}})])
    
    "diviser" {:synsem {:cat :verb
                       :sem {:pred :divide}}}

(ns babel.francais.lexicon
  (:refer-clojure :exclude [get-in])
  (:require
   [babel.lexiconfn :refer (unify)]
   [babel.francais.morphology :refer [exception-generator phonize]]
   [babel.francais.pos :refer :all]
   [babel.lexiconfn :refer (compile-lex map-function-on-map-vals unify)]

   "dire"
   (let [shared-part-of-dire
         {:synsem {:cat :verb}
          :français {:français "dire"
                     :past-participle "dit"
                     :future-stem "dir"
                     :imperfect-stem "dis"
                     :present {:1sing "dis"
