From 002213d98e8e4374c3018f5321a72f38b1aa651c Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sat, 4 May 2013 11:51:16 -0400 Subject: [PATCH] fix syntax error context --- collects/syntax/parse/experimental/specialize.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/syntax/parse/experimental/specialize.rkt b/collects/syntax/parse/experimental/specialize.rkt index 3c586ebfd8..490c8f9ecc 100644 --- a/collects/syntax/parse/experimental/specialize.rkt +++ b/collects/syntax/parse/experimental/specialize.rkt @@ -8,6 +8,7 @@ (provide define-syntax-class/specialize) (define-syntax (define-syntax-class/specialize stx) + (parameterize ((current-syntax-context stx)) (syntax-case stx () [(dscs header sc-expr) (let-values ([(name formals arity) @@ -36,4 +37,4 @@ #f)) (define-values (parser) (lambda (x cx pr es fh0 cp0 rl success . formals) - (app-argu target-parser x cx pr es fh0 cp0 rl success argu)))))))])) + (app-argu target-parser x cx pr es fh0 cp0 rl success argu)))))))])))