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

Inline definition of in-syntax.

Browse Source 
That function is moving from `unstable/sequence` to `racket/sequence`.

Inlining it preserves backwards compatibility while removing the
dependency on unstable.
This commit is contained in:
Vincent St-Amour 2015-08-13 11:27:48 -05:00
parent 8314bbe95c
commit 0b2bc67832
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 ...))]))