From 15d0ccc2c097e20d51f1519c032e158d12214c0f Mon Sep 17 00:00:00 2001
From: Alexis King <lexi.lambda@gmail.com>
Date: Thu, 13 Dec 2018 14:28:50 -0600
Subject: [PATCH] Fix `splicing-parameterize` around `begin`

---
 pkgs/racket-test-core/tests/racket/syntax.rktl | 10 ++++++++++
 racket/collects/racket/splicing.rkt            |  2 +-
 2 files changed, 11 insertions(+), 1 deletion(-)

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