9 lines
316 B
Scheme
9 lines
316 B
Scheme
#lang scheme/base
|
|
(define-struct (exn:fail:redex exn:fail) ())
|
|
(define (redex-error name fmt . args)
|
|
(let ([str (format "~a: ~a" name (apply format fmt args))])
|
|
(raise (make-exn:fail:redex str (current-continuation-marks)))))
|
|
(provide redex-error
|
|
exn:fail:redex?
|
|
(struct-out exn:fail:redex))
|