(library
  (fail)
  (export fail)
  (import (chezscheme))

  (define (fail msg)
    (raise (condition
             (make-error)
             (make-message-condition msg)))))