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 . _) [(mcons . _)
(bad "mcons")] (bad "mcons")]
[(lst e ...) [(lst e ...)
(ormap (lambda (x) (free-identifier=? x #'lst)) (ormap (lambda (x) (same-special-id? #'lst x))
(syntax->list #'(list list*))) (syntax->list #'(list list*)))
(with-syntax ([(e ...) (with-syntax ([(e ...)
(map (lambda (x) (cons-elem x)) (map (lambda (x) (cons-elem x))
(syntax->list (syntax (e ...))))]) (syntax->list (syntax (e ...))))])
(syntax/loc expr (lst e ...)))] (syntax/loc expr (lst e ...)))]
[(lst . _) [(lst . _)
(ormap (lambda (x) (free-identifier=? x #'lst)) (ormap (lambda (x) (same-special-id? #'lst x))
(syntax->list #'(list list*))) (syntax->list #'(list list*)))
(bad (syntax-e #'lst))] (bad (syntax-e #'lst))]
[(append e0 ... e) [(append e0 ... e)