diff --git a/pkgs/racket-test-core/tests/racket/syntax.rktl b/pkgs/racket-test-core/tests/racket/syntax.rktl index 1e1ab2abff..5e5ed51461 100644 --- a/pkgs/racket-test-core/tests/racket/syntax.rktl +++ b/pkgs/racket-test-core/tests/racket/syntax.rktl @@ -2212,6 +2212,16 @@ (read i))) (test #t andmap immutable? (dynamic-require ''defines-immutable-objects 'objs)))) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; `splicing-parameterize` + `begin` + +(test #t 'splicing-parameterize + (let ([param (make-parameter #f)]) + (splicing-parameterize ([param #t]) + (begin + (define x (param)))) + x)) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (report-errs) diff --git a/racket/collects/racket/splicing.rkt b/racket/collects/racket/splicing.rkt index 6df4e57b47..e5e29c743c 100644 --- a/racket/collects/racket/splicing.rkt +++ b/racket/collects/racket/splicing.rkt @@ -489,7 +489,7 @@ [(begin new-body ...) (syntax/loc/props expanded-body (begin - (splicing-parameterize-body parameterization new-body) + (splicing-parameterize-body scopeless-id scoped-id parameterization new-body) ...))] [(define-values ids rhs) (quasisyntax/loc/props expanded-body