fix missing argument to format

please merge to release branch
(cherry picked from commit 2b99c86321)
This commit is contained in:
Robby Findler 2011-07-17 19:32:43 -05:00 committed by Eli Barzilay
parent 4b13d54396
commit d5045184c9

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)))