client.clj

       (try
         (let [result# (do ~@body)]
           ~(if rollback?
              `(.rollback ~bind)
              `(.commit ~bind))
           result#)
         (catch Throwable e#
           (.rollback ~bind)
           (throw e#)))