diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/pr14207.rkt b/pkgs/racket-pkgs/racket-test/tests/racket/pr14207.rkt new file mode 100644 index 0000000000..a59ddedae0 --- /dev/null +++ b/pkgs/racket-pkgs/racket-test/tests/racket/pr14207.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(let () + (local-require (rename-in racket/base [string rkt:strrng])) + ;;=> 3:28: syntax: misplaced ellipsis in template at: ... in: ... + rkt:strrng) diff --git a/racket/collects/racket/private/reqprov.rkt b/racket/collects/racket/private/reqprov.rkt index 93099469b2..bdc1324d3e 100644 --- a/racket/collects/racket/private/reqprov.rkt +++ b/racket/collects/racket/private/reqprov.rkt @@ -1111,7 +1111,7 @@ (with-syntax ([(name ...) names] [(lifted ...) lifts]) (syntax/loc stx (define-syntaxes (name ...) - (values (make-rename-transformer #'lifted) ...)))))])) + (values (make-rename-transformer (quote-syntax lifted)) ...)))))])) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; )