(try+ true)

gistfile1.txt

(try
  true
  (catch
    java.lang.Throwable
    &throw-context
    (clojure.core/let [&throw-context (clojure.core/->
                                       &throw-context
                                       slingshot.support/get-context
                                       slingshot.support/*catch-hook*)]
      (clojure.core/cond
        (clojure.core/contains? &throw-context :catch-hook-return) (:catch-hook-return
                                                                     &throw-context)
        (clojure.core/contains? &throw-context :catch-hook-throw) (slingshot.slingshot/throw+
                                                                    (:catch-hook-throw
                                                                      &throw-context))
        (clojure.core/contains? &throw-context :catch-hook-rethrow) (slingshot.slingshot/throw+)
        :else (slingshot.slingshot/throw+)))))

(def ^{:dynamic true
       :doc "Hook to allow overriding the behavior of catch. Must be
  bound to a function of one argument, a context map. Returns
  a (possibly modified) context map to be considered by catch clauses.

  Normal processing by catch clauses can be skipped by adding special
  keys to the context map:

  If the context contains the key:
    - :catch-hook-return, try+ will return the corresponding value;
    - :catch-hook-throw, try+ will throw+ the corresponding value;
    - :catch-hook-rethrow, try+ will rethrow the caught object's
      outermost wrapper.

  Defaults to identity."}
  *catch-hook* identity)

expansion for

(try+
   true
   (catch bar t
     (t/print-env "throw-context")
     false))

(try
  true
  (catch
    java.lang.Throwable
    &throw-context
    (clojure.core/let [&throw-context (clojure.core/->
                                       &throw-context
                                       slingshot.support/get-context
                                       slingshot.support/*catch-hook*)]
      (clojure.core/cond
        (clojure.core/contains? &throw-context :catch-hook-return) (:catch-hook-return
                                                                     &throw-context)
        (clojure.core/contains? &throw-context :catch-hook-throw) (slingshot.slingshot/throw+
                                                                    (:catch-hook-throw
                                                                      &throw-context))
        (clojure.core/contains? &throw-context :catch-hook-rethrow) (slingshot.slingshot/throw+)
        (bar (:object &throw-context)) (clojure.core/let 
                                         [t (:object &throw-context)]
                                         (t/print-env "throw-context")
                                         false)
        :else (slingshot.slingshot/throw+)))))