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

Fix source location in errors reported by define/match

Browse Source
This commit is contained in:
Alexis King 2017-01-07 08:01:08 -08:00
parent 57e787eec2
commit dc9aa8a569
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test/tests/match/define-match.rkt
View File

@ -55,3 +55,9 @@
(check-equal? (list-fun '(1 2 3)) #t) (check-equal? (list-fun '(1 2 3)) #t)
(check-equal? (list-fun '(4 5 6)) #f) (check-equal? (list-fun '(4 5 6)) #f)
(check-exn
#px"^define/match: no matching clause for #f$"
(λ ()
(define/match (f x))
(f #f)))

4
racket/collects/racket/match/define-forms.rkt
View File

@ -170,7 +170,7 @@
(define-syntax (define/match stx) (define-syntax (define/match stx)
(syntax-parse stx (syntax-parse stx
[(_ ?header:function-header ?clause ...) [(_ ?header:function-header ?clause ...)
(template (quasitemplate
(define ?header (define ?header
(match* (?? ?header.params) (match*/derived (?? ?header.params) #,stx
?clause ...)))]))))) ?clause ...)))])))))