From 0b2bc678320db2d4cf75661ffe54bde4e3231a77 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 13 Aug 2015 11:27:48 -0500 Subject: [PATCH] Inline definition of `in-syntax`. That function is moving from `unstable/sequence` to `racket/sequence`. Inlining it preserves backwards compatibility while removing the dependency on unstable. --- whalesong/lang/private/match/define-forms.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/whalesong/lang/private/match/define-forms.rkt b/whalesong/lang/private/match/define-forms.rkt index c3b7495..789bef5 100644 --- a/whalesong/lang/private/match/define-forms.rkt +++ b/whalesong/lang/private/match/define-forms.rkt @@ -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 ...))]))