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

fix shared on top-level 'list' binding

Browse Source 
svn: r12387
This commit is contained in:
Matthew Flatt 2008-11-11 17:53:12 +00:00
parent ab1da92ee9
commit 209b252f2c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/private/shared-body.ss
View File

@ -97,14 +97,14 @@
[(mcons . _)
(bad "mcons")]
[(lst e ...)
(ormap (lambda (x) (free-identifier=? x #'lst))
(ormap (lambda (x) (same-special-id? #'lst x))
(syntax->list #'(list list*)))
(with-syntax ([(e ...)
(map (lambda (x) (cons-elem x))
(syntax->list (syntax (e ...))))])
(syntax/loc expr (lst e ...)))]
[(lst . _)
(ormap (lambda (x) (free-identifier=? x #'lst))
(ormap (lambda (x) (same-special-id? #'lst x))
(syntax->list #'(list list*)))
(bad (syntax-e #'lst))]
[(append e0 ... e)