From c33a201c43daa42c88b9f0d755272d7d1d3b3992 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 17 Jan 2009 12:27:06 +0000 Subject: [PATCH] fix splicing-syntax-parameterize with begin (patch from Stevie) --- should be merged to 4.1.4 svn: r13187 --- collects/scheme/splicing.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/scheme/splicing.ss b/collects/scheme/splicing.ss index 3a864ce061..725283c4f8 100644 --- a/collects/scheme/splicing.ss +++ b/collects/scheme/splicing.ss @@ -118,9 +118,12 @@ #f)]) ;; Extract expanded body out of `body': (syntax-case body (quote) - [(ls _ _ (quoute body)) + [(ls _ _ (quote body)) (let ([body #'body]) (syntax-case body (begin define-values define-syntaxes define-for-syntaxes) + [(begin expr ...) + (syntax/loc body + (begin (expand-ssp-body (sp-id ...) (temp-id ...) expr) ...))] [(define-values (id ...) rhs) (syntax/loc body (define-values (id ...)