10 lines
174 B
Scheme
10 lines
174 B
Scheme
(library
|
|
(fail)
|
|
(export fail)
|
|
(import (chezscheme))
|
|
|
|
(define (fail msg)
|
|
(raise (condition
|
|
(make-error)
|
|
(make-message-condition msg)))))
|