diff --git a/pkgs/racket-test/tests/stxparse/test-errors.rkt b/pkgs/racket-test/tests/stxparse/test-errors.rkt index 4b52366d79..ba257c3d03 100644 --- a/pkgs/racket-test/tests/stxparse/test-errors.rkt +++ b/pkgs/racket-test/tests/stxparse/test-errors.rkt @@ -1,5 +1,6 @@ #lang scheme (require syntax/parse + (only-in syntax/parse [syntax-parse renamed-syntax-parse]) syntax/parse/debug rackunit "setup.rkt") @@ -206,3 +207,7 @@ #rx"expected attribute name") ;; two more +(tcerr "renamed syntax-parse bad syntax" + (renamed-syntax-parse) + #rx"^renamed-syntax-parse: ") + diff --git a/racket/collects/syntax/parse/private/sc.rkt b/racket/collects/syntax/parse/private/sc.rkt index fc8abf7907..ae0022ba48 100644 --- a/racket/collects/syntax/parse/private/sc.rkt +++ b/racket/collects/syntax/parse/private/sc.rkt @@ -6,10 +6,7 @@ ;; keep and keep as abs. path -- lazy-loaded macros produce references to this ;; must be required via *absolute module path* from any disappearing module ;; (so for consistency etc, require absolutely from all modules) -(require syntax/parse/private/residual - racket/syntax - racket/stxparam - syntax/stx) +(require syntax/parse/private/residual) (begin-for-syntax (lazy-require @@ -60,9 +57,7 @@ define-eh-alternative-set) (let ([tx (lambda (get-id) (lambda (stx) - (syntax-case stx () - [(_ . args) - (datum->syntax stx (cons (get-id) #'args) stx)])))]) + ((syntax-local-value (get-id)) stx)))]) (values (tx id:define-syntax-class) (tx id:define-splicing-syntax-class)