                                                               [:structure :synsem :sem]))
                                           "'" " ; exception: " e))
                           (cond
-                            catch-and-log-error
+                            allow-generation-error
                             (log/info (str "ignoring above error and continuing."))
                             true
                             (throw e)))))))))))

        debug (log/debug (str "using root:" root))
        debug (log/debug (str "using spec:" (strip-refs spec)))
        
;;        use-map-fn map ;; <- development
        use-map-fn pmap ;; <- production

        model (-> ((-> models :en)) deref)
        type-of-model (type model)
        log-the-type (log/info (str "type of model is: " type-of-model))
        source-expressions (read-all spec
                                     source-language-short-name)]
    (count

                    existing-english-expression)
                  ;; else, no existing expression: generate a new one.
                  (do
                    (log/debug (str "calling (process) with spec:" spec "; using source expression: '"
                                    (:surface source-expression) "'"))
                    (try
                      (let [result
                            (process [{:fill-one-language
