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

Add source locations in match -> match* conversion

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-10-26 16:38:17 -04:00
parent 561fdc8db5
commit 7802f1deb7
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/racket/match/gen-match.rkt
View File

@ -9,10 +9,14 @@
;; this transforms `match'-style clauses into ones acceptable to `go' ;; this transforms `match'-style clauses into ones acceptable to `go'
;; go : syntax syntax syntax [certifier] -> syntax ;; go : syntax syntax syntax [certifier] -> syntax
(define (go/one parse/cert stx expr clauses [cert (syntax-local-certifier)]) (define (go/one parse/cert stx expr clauses [cert (syntax-local-certifier)])
(define-syntax-class cl
(pattern [p . rhs]
#:with res (syntax/loc this-syntax [(p) . rhs])))
(syntax-parse clauses (syntax-parse clauses
[([p . rhs] ...) [(c:cl ...)
(go parse/cert stx (quasisyntax/loc expr (#,expr)) (go parse/cert stx (quasisyntax/loc expr (#,expr))
#'([(p) . rhs] ...) cert)])) #'(c.res ...)
cert)]))
;; this parses the clauses using parse/cert, then compiles them ;; this parses the clauses using parse/cert, then compiles them
;; go : syntax syntax syntax [certifier] -> syntax ;; go : syntax syntax syntax [certifier] -> syntax