#lang scheme/base

(require scheme/pretty
         (planet untyped/unlib/debug)
         (planet untyped/unlib/exn))

; Exception types ------------------------------

(define-struct (exn:dispatch exn) () #:transparent)
(define-struct (exn:fail:dispatch exn:fail) () #:transparent)

; Provide statements ---------------------------

(provide (all-from-out scheme/pretty
                       (planet untyped/unlib/debug)
                       (planet untyped/unlib/exn))
         (struct-out exn:dispatch)
         (struct-out exn:fail:dispatch))