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

fix r6rs library-body handling (PR 10693)

Browse Source 
svn: r17628
This commit is contained in:
Matthew Flatt 2010-01-13 12:59:15 +00:00
parent eb9e007048
commit 70b3d5abcb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/r6rs/main.ss
View File

@ -157,7 +157,8 @@ FIXME:
(syntax-case a (begin #%require) (syntax-case a (begin #%require)
[(def . _) [(def . _)
(ormap (lambda (id) (ormap (lambda (id)
(free-identifier=? id #'def)) (and (identifier? id)
(free-identifier=? id #'def)))
(list #'define-values (list #'define-values
#'define-syntaxes #'define-syntaxes
#'define-values-for-syntax)) #'define-values-for-syntax))