fix error message wording

This commit is contained in:
Robby Findler 2012-07-25 03:02:30 -05:00
parent fe9cdc0756
commit cdee10e2c0

View File

@ -4975,9 +4975,9 @@ An example
(for-each (lambda (from-id)
(unless (implementation? super% from-id)
(obj-error mixin-name
"argument class does not implement method"
"argument class does not implement interface"
"argument" super%
"method name" (as-write from-id))))
"interface name" (as-write from-id))))
from-ids)))
(define (check-mixin-from-interfaces all-from)