      (get-in word [:espanol])
      
      :else
-     (throw (Exception. (str "get-string-1: conditional regular inflection: don't know what to do with input argument: " (strip-refs word)))))))
-
+     (let [message (str "get-string-1: conditional regular inflection: don't know what to do with input argument: " (strip-refs word))]
+       (if suppress-morph-exceptions
+         (do (log/warn message)
+             "??")
+         (throw (Exception. message)))))))

(require '[clojure.string :refer (trim)])
(require '[clojure.tools.logging :as log])
(require '[dag-unify.core :refer (copy dissoc-paths fail? get-in merge ref? strip-refs unifyc)])

(defn reflexive-to-infinitive [reflexive-infinitive]
  "e.g.: quedarse -> quedar"

     (get-in word [:espanol])

     :else
     (let [message (str "get-string-1: present regular inflection: don't know what to do with input argument: " (strip-refs word))]
       (if suppress-morph-exceptions
         (do (log/warn message)
             "??")
         (throw (Exception. message)))))))

(declare irregular-preterito)
(declare regular-preterito)
