(define catch-exceptions (make-parameter #t))

(handle-exceptions
  exn
  (if (catch-exceptions)
      (handle-the-exception)
      (abort exn))
  ...)