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

fix bug in commit 52f18ee37

Browse Source
This commit is contained in:
Robby Findler 2012-08-17 17:54:26 -05:00
parent 52f18ee370
commit b128ce4719
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/racket/private/class-internal.rkt
View File

@ -1191,7 +1191,8 @@
(let ([exprs (map (lambda (e)
(syntax-case e ()
[(d-v (id ...) expr)
(free-identifier=? #'d-v #'define-values)
(and (identifier? #'d-v)
(free-identifier=? #'d-v #'define-values))
(syntax-track-origin (syntax/loc e (set!-values (id ...) expr))
e
#'d-v)]
@ -1224,7 +1225,8 @@
e
#'_init)))]
[(-fld orig idp ...)
(free-identifier=? #'-fld #'-field)
(and (identifier? #'-fld)
(free-identifier=? #'-fld #'-field))
(with-syntax ([(((iid eid) expr) ...)
(map normalize-init/field (syntax->list #'(idp ...)))])
(syntax-track-origin
@ -1235,7 +1237,8 @@
e
#'-fld))]
[(-i-r id/rename)
(free-identifier=? #'-i-r #'-init-rest)
(and (identifier? #'-i-r)
(free-identifier=? #'-i-r #'-init-rest))
(with-syntax ([n (+ (length plain-inits)
(length plain-init-fields)
-1)]
@ -1247,7 +1250,8 @@
e
#'-i-r))]
[(-i-r)
(free-identifier=? #'-i-r #'-init-rest)
(and (identifier? #'-i-r)
(free-identifier=? #'-i-r #'-init-rest))
(syntax-track-origin (syntax (void)) e #'-i-r)]
[_else e]))
exprs)]