Yea, the whole situation looks like a mess...

Can core.async go blocks break exception handling?

(defn dispatch-handlers
  [handlers event-type event-data & args]
  (if-let [f (handlers event-type)]
    (doseq [f' f]
      (println "  " (pr-str f') (fn? f') (fn? @f'))
      (apply @f' event-type event-data args)
      (println "FIN")) ;; <--- To test if this get's run
    (do
      (println ":tada: NEW EVENT! :tada:")
      (println "Event type:" event-type)
      (println "Event data:" (pr-str event-data)))))

(try
  (dispatch-handlers #'handlers event-type event-data)
  (catch Exception e
    (log/error e "Exception occurred in event handler.")))

{:handler [#'handler-fn]}