From ff888bda2a29f14fb13264cb26814cf840db9daa Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 26 Jun 2008 14:49:20 +0000 Subject: [PATCH] fix splicing 'begin' in R5RS (PR 9548) svn: r10458 --- collects/r5rs/main.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/r5rs/main.ss b/collects/r5rs/main.ss index fb97997ea7..ec3205135a 100644 --- a/collects/r5rs/main.ss +++ b/collects/r5rs/main.ss @@ -380,7 +380,7 @@ [(begin . rest) (let ([l (syntax->list #'rest)]) (if l - (loop (append l exprs) idss rhss stx-idss stx-rhss) + (loop (append l (cdr exprs)) idss rhss stx-idss stx-rhss) (raise-syntax-error #f expr "bad syntax")))] [(define-syntaxes (id ...) rhs) (andmap identifier? (syntax->list #'(id ...)))