                            :er-type er-type
                            :vosotros vosotros
                            :ustedes ustedes}})]
-       (throw (Exception. (str "get-string-1: imperfecto regular inflection: don't know what to do with input argument: " (strip-refs word))))))))
+
+       (let [message (str "get-string-1: imperfect 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))))))))
 
 (defn present [word & [ {usted :usted
                          vosotros :vosotros

(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: 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)))))))
