suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #1323 from jbclements/make-match-exn-transparent

Browse Source 
make match exception transparent
This commit is contained in:
John Clements 2016-05-04 20:00:29 -07:00
commit 5961313e50
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/racket/match/runtime.rkt
View File

@ -17,7 +17,8 @@
(define match-equality-test (make-parameter equal?)) (define match-equality-test (make-parameter equal?))
(define-struct (exn:misc:match exn:fail) (value srclocs) (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) (define (match:error val srclocs form-name)