      (throw (js/Error. error-string))))
 
 (defn unify-check [ & vals]
-  (let [result (apply unifyc vals)]
+  (let [result (apply unify vals)]
     (if (fail? result)
       (exception (str "failed to unify grammar rule with values: " vals))
       result)))

        head-essere (atom :top)
        head-is-pronoun (atom :top)
        head-sem (atom :top)]
    (unifyc phrasal
            {:synsem {:cat head-cat
                      :essere head-essere
                      :pronoun head-is-pronoun

(ns babel.ug
  (:refer-clojure :exclude [get-in resolve])
  (:require [clojure.string :as string]
            [dag_unify.core :refer (fail? get-in unify)]))

(def phrasal {:phrasal true})

