fix missing argument to format

please merge to release branch
This commit is contained in:
Robby Findler 2011-07-17 19:32:43 -05:00
parent 5efe7001d6
commit 2b99c86321

View File

@ -2576,7 +2576,7 @@
(fail "no public method ~a" m)))
(for ([m (class/c-absents ctc)])
(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)])
(unless (hash-ref method-ht m #f)
(fail "no public method ~a" m)))