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) (for-each (lambda (from-id)
(unless (implementation? super% from-id) (unless (implementation? super% from-id)
(obj-error mixin-name (obj-error mixin-name
"argument class does not implement method" "argument class does not implement interface"
"argument" super% "argument" super%
"method name" (as-write from-id)))) "interface name" (as-write from-id))))
from-ids))) from-ids)))
(define (check-mixin-from-interfaces all-from) (define (check-mixin-from-interfaces all-from)