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

change R5RS to allow splicing unquote at tail when expression is not a list; merge to 4.2.4

Browse Source 
svn: r17811
This commit is contained in:
Matthew Flatt 2010-01-25 13:33:42 +00:00
parent aee10699ae
commit 530a3eb5e8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/r5rs/main.ss
View File

@ -209,7 +209,9 @@
form)] form)]
[((unquote-splicing e) . rest) [((unquote-splicing e) . rest)
(if (zero? depth) (if (zero? depth)
#`(mappend e #,(loop #'rest depth)) (if (null? (syntax-e #'rest))
#'e ;; Note: we're not check for a list
#`(mappend e #,(loop #'rest depth)))
#`(mcons (mcons 'unquote-splicing #`(mcons (mcons 'unquote-splicing
#,(loop #'(e) (sub1 depth))) #,(loop #'(e) (sub1 depth)))
#,(loop #'rest depth)))] #,(loop #'rest depth)))]