        (if (= suppress-morph-exceptions true)
          (do (log/warn message)
              "??")
-         (throw (Exception. message)))))))
+         (exception message))))))
+

       (if (= suppress-morph-exceptions true)
         (do (log/warn message)
             "??")
         (throw (Exception. message)))))))

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

  (let [infinitive (reflexive-to-infinitive (get-in word '(:espanol)))
        ar-type (try (re-find #"ar$" infinitive)
                     (catch Exception e
                       (exception (str "Can't regex-find on non-string: " infinitive " from word: " word))))
        er-type (re-find #"er$" infinitive)
        ir-type (re-find #"ir$" infinitive)
        
