Fix splicing-parameterize around begin

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)

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