                                                    (if (not (= :none (get-in lexeme path :none)))
                                                      (do (log/debug (str (first lexeme-kv) " generating lexeme exceptional surface form: " (surface-form-fn lexeme)))
                                                          (list {(surface-form-fn lexeme)
-                                                                (merge
+                                                                (dag_unify.core/merge
                                                                  lexeme
                                                                  (unifyc (merge-fn lexeme)
                                                                          {:italiano {:infinitive (get-in lexeme [:italiano :italiano])

        (str infinitive )

        :else
        (merge word
               {:error 1})))

     (and
      (get-in word '(:a))

(ns babel.italiano.morphology
  (:refer-clojure :exclude [get-in resolve])
  (:require
   [babel.pos :refer (noun)]
   [babel.italiano.morphology.adjectives :as adjectives]
