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

First order checks.

Browse Source 
svn: r18233
This commit is contained in:
Stevie Strickland 2010-02-20 21:34:57 +00:00
parent a4d6252d16
commit a0fdeff509
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scheme/private/class-internal.ss
View File

@ -2520,6 +2520,9 @@
(for ([m (class/c-methods ctc)]) (for ([m (class/c-methods ctc)])
(unless (hash-ref method-ht m #f) (unless (hash-ref method-ht m #f)
(failed "no public method ~a" m))) (failed "no public method ~a" m)))
(for ([m (class/c-inherits ctc)])
(unless (hash-ref method-ht m #f)
(failed "no public method ~a" m)))
(for ([m (class/c-overrides ctc)]) (for ([m (class/c-overrides ctc)])
(let ([index (hash-ref method-ht m #f)]) (let ([index (hash-ref method-ht m #f)])
(unless index (unless index