From 5493e1753860b091f39931aa62c7c438a777bb9c Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Mon, 4 Jul 2011 18:01:26 -0400 Subject: [PATCH] Fix match to not use apply and work with TR. --- collects/racket/match/gen-match.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/racket/match/gen-match.rkt b/collects/racket/match/gen-match.rkt index 666b1c7253..292c71edc9 100644 --- a/collects/racket/match/gen-match.rkt +++ b/collects/racket/match/gen-match.rkt @@ -31,11 +31,11 @@ exprs))] [let ([len (length (syntax->list exprs))] [srcloc-list (list - (syntax-source stx) - (syntax-line stx) - (syntax-column stx) - (syntax-position stx) - (syntax-span stx))])] + #`(quote #,(syntax-source stx)) + #`(quote #,(syntax-line stx)) + #`(quote #,(syntax-column stx)) + #`(quote #,(syntax-position stx)) + #`(quote #,(syntax-span stx)))])] [with-syntax ([(xs ...) (generate-temporaries exprs)] [(exprs ...) exprs] [(fail) (generate-temporaries #'(fail))])] @@ -78,5 +78,5 @@ (quasisyntax/loc stx (let ([xs exprs] ...) (let ([fail (lambda () - #,(quasisyntax/loc stx (match:error orig-expr (list (apply srcloc (quote #,srcloc-list))))))]) + #,(quasisyntax/loc stx (match:error orig-expr (list (srcloc #,@srcloc-list)))))]) body))))]))