8 lines
134 B
Scheme
8 lines
134 B
Scheme
(library
|
|
(fail)
|
|
|
|
(define (fail msg)
|
|
(raise (condition
|
|
(make-error)
|
|
(make-message-condition msg)))))
|