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

Don't allow internal names for abstract methods.

Browse Source
This commit is contained in:
Asumu Takikawa 2012-02-06 16:10:03 -05:00
parent b50a2c7518
commit 6059c51b56
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -753,6 +753,14 @@
(syntax->list (syntax (id ...))))]
[(-private . rest)
(bad "ill-formed private clause" stx)]
[(-abstract id ...)
(for-each
(lambda (id)
(unless (identifier? id)
(bad "abstract element is not an identifier" id)))
(syntax->list (syntax (id ...))))]
[(-abstract . rest)
(bad "ill-formed abstract clause" stx)]
[(form idp ...)
(and (identifier? (syntax form))
(ormap (lambda (f) (free-identifier=? (syntax form) f))
@ -768,8 +776,7 @@
-inherit
-inherit/super
-inherit/inner
-inherit-field
-abstract)))))
-inherit-field)))))
(let ([form (syntax-e (syntax form))])
(for-each
(lambda (idp)
@ -809,8 +816,6 @@
(bad "ill-formed inherit/inner clause" stx)]
[(-inherit-field . rest)
(bad "ill-formed inherit-field clause" stx)]
[(-abstract . rest)
(bad "ill-formed abstract clause" stx)]
[(kw idp ...)
(and (identifier? #'kw)
(or (free-identifier=? #'-rename-super #'kw)