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