8 lines
279 B
Scheme
8 lines
279 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?)
|