thin-provisioning-tools/functional-tests/fail.scm
2017-10-06 15:51:19 +01:00

10 lines
174 B
Scheme

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