#lang scheme/base

(require (planet untyped/unlib:3/exn))

(define-struct (exn:fail:sake exn:fail) ())

(define-syntax raise-exn:fail:sake
  (syntax-rules ()
    [(raise-exn:fail:sake msg arg ...)
     (raise-exn exn:fail:sake msg arg ...)]))

(provide
 (struct-out exn:fail:sake)
 raise-exn:fail:sake)