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

Merge pull request #40 from stamourv/master

Browse Source 
Inline definition of `in-syntax`.
This commit is contained in:
Jens Axel Søgaard 2015-09-12 11:03:22 +02:00
commit 72754ddc5d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
whalesong/lang/private/match/define-forms.rkt
View File

@ -3,7 +3,7 @@
(require (for-syntax racket/base
racket/syntax
(only-in racket/list append* remove-duplicates)
unstable/sequence
syntax/stx
syntax/parse
syntax/parse/experimental/template
racket/lazy-require))
@ -145,9 +145,9 @@
[(_ ((~and cl [pat exp]) ...) body1 body ...)
(quasisyntax/loc stx
(let ()
#,@(for/list ([c (in-syntax #'(cl ...))]
[p (in-syntax #'(pat ...))]
[e (in-syntax #'(exp ...))])
#,@(for/list ([c (in-list (stx->list #'(cl ...)))]
[p (in-list (stx->list #'(pat ...)))]
[e (in-list (stx->list #'(exp ...)))])
(quasisyntax/loc c (match-define #,p #,e)))
body1 body ...))]))