11 lines
363 B
Scheme
11 lines
363 B
Scheme
#lang scheme
|
|
|
|
(provide (struct-out exn:fail:r6rs)
|
|
(struct-out exn:fail:contract:r6rs)
|
|
(struct-out exn:fail:filesystem:exists-not))
|
|
|
|
(define-struct (exn:fail:r6rs exn:fail) (who irritants))
|
|
(define-struct (exn:fail:contract:r6rs exn:fail:contract) (who irritants))
|
|
|
|
(define-struct (exn:fail:filesystem:exists-not exn:fail:filesystem) (filename))
|