thin-provisioning-tools/functional-tests/fail.scm

10 lines
174 B
Scheme
Raw Normal View History

(library
(fail)
(export fail)
(import (chezscheme))
(define (fail msg)
(raise (condition
(make-error)
(make-message-condition msg)))))