suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix splicing 'begin' in R5RS (PR 9548)

Browse Source 
svn: r10458
This commit is contained in:
Matthew Flatt 2008-06-26 14:49:20 +00:00
parent e62bb306fa
commit ff888bda2a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/r5rs/main.ss
View File

@ -380,7 +380,7 @@
[(begin . rest) [(begin . rest)
(let ([l (syntax->list #'rest)]) (let ([l (syntax->list #'rest)])
(if l (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")))] (raise-syntax-error #f expr "bad syntax")))]
[(define-syntaxes (id ...) rhs) [(define-syntaxes (id ...) rhs)
(andmap identifier? (syntax->list #'(id ...))) (andmap identifier? (syntax->list #'(id ...)))