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

fix missing argument to format

Browse Source 
please merge to release branch
This commit is contained in:
Robby Findler 2011-07-17 19:32:43 -05:00
parent 5efe7001d6
commit 2b99c86321
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2576,7 +2576,7 @@
(fail "no public method ~a" m))) (fail "no public method ~a" m)))
(for ([m (class/c-absents ctc)]) (for ([m (class/c-absents ctc)])
(when (hash-ref method-ht m #f) (when (hash-ref method-ht m #f)
(fail "class already contains public method ~a"))) (fail "class already contains public method ~a" m)))
(for ([m (class/c-inherits ctc)]) (for ([m (class/c-inherits ctc)])
(unless (hash-ref method-ht m #f) (unless (hash-ref method-ht m #f)
(fail "no public method ~a" m))) (fail "no public method ~a" m)))