(defmacro try-catchall
  "See prismatic schema.macros/try-catchall."
  [& body]
  (let [[try-body
         [catch bind & catch-body]
         [finally & fin]] (if (= 'catch (first (last body)))
                            (cons (butlast body)
                                  (take-last 1 body))
                            (cons (butlast (butlast body))
                                  (take-last 2 body)))]
    (assert (= catch 'catch))
    (assert (symbol? bind))
    (assert (contains? #{'finally nil} finally))
    ;; finally in core.async can break your code: https://dev.clojure.org/jira/browse/ASYNC-198
    (if-not finally
      `(if-cljs
         (try ~@try-body (catch js/Error  ~bind ~@catch-body))
         (try ~@try-body (catch Throwable ~bind ~@catch-body)))
      `(if-cljs
         (try ~@try-body (catch js/Error  ~bind ~@catch-body) (finally ~@fin))
         (try ~@try-body (catch Throwable ~bind ~@catch-body) (finally ~@fin))))))

  (t/are [expr result] (= result (e/eval-base expr))
    '[:call
      [:lambda [x y]
       [:call [:lookup +] [:lookup x] [:lookup x] [:lookup y]]]
      [:literal 1] [:literal 2]]
    #_=> 4

    '[:literal 5] #_=> 5))

(defn foo [x]
  (try (library/do-something x)
    (catch SomeException e nil)))