From 7c26614343ae24c41ec29250cfb48fc6d51e01d5 Mon Sep 17 00:00:00 2001 From: John Clements Date: Wed, 4 May 2016 14:19:04 -0700 Subject: [PATCH] make match exception transparent This push makes the exn:misc:match exception transparent. This matches other racket-raised user exceptions. The motivation for this change was breakage in the handin-server; specifically, the discussion in https://groups.google.com/forum/#!topic/racket-users/nEos3-osoWE ...in which the handin-server was not behaving the same on exn:misc:match because it was not transparent. This caused the handin server to refuse to rewrite these exceptions, resulting in less helpful messages for users. --- racket/collects/racket/match/runtime.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/collects/racket/match/runtime.rkt b/racket/collects/racket/match/runtime.rkt index 59a13b73b8..f059f96f34 100644 --- a/racket/collects/racket/match/runtime.rkt +++ b/racket/collects/racket/match/runtime.rkt @@ -17,7 +17,8 @@ (define match-equality-test (make-parameter equal?)) (define-struct (exn:misc:match exn:fail) (value srclocs) - #:property prop:exn:srclocs (lambda (ex) (exn:misc:match-srclocs ex))) + #:property prop:exn:srclocs (lambda (ex) (exn:misc:match-srclocs ex)) + #:transparent) (define (match:error val srclocs form-name)