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

fix syntax error context

Browse Source
This commit is contained in:
Ryan Culpepper 2013-05-04 11:51:16 -04:00
parent 87921e914e
commit 002213d98e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/syntax/parse/experimental/specialize.rkt
View File

@ -8,6 +8,7 @@
(provide define-syntax-class/specialize) (provide define-syntax-class/specialize)
(define-syntax (define-syntax-class/specialize stx) (define-syntax (define-syntax-class/specialize stx)
(parameterize ((current-syntax-context stx))
(syntax-case stx () (syntax-case stx ()
[(dscs header sc-expr) [(dscs header sc-expr)
(let-values ([(name formals arity) (let-values ([(name formals arity)
@ -36,4 +37,4 @@
#f)) #f))
(define-values (parser) (define-values (parser)
(lambda (x cx pr es fh0 cp0 rl success . formals) (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)))))))])))