more info in no-applicable-method

svn: r3310
This commit is contained in:
Eli Barzilay 2006-06-09 21:22:20 +00:00
parent cdae5711a1
commit 29b58703a6

View File

@ -1670,8 +1670,8 @@
(make-method (list <generic>)
(lambda (call-next-method generic . args)
(raise* make-exn:fail:contract
"~s: no applicable primary methods for argument types ~e"
(%generic-name generic) (map class-of args)))))
"~s: no applicable primary methods for arguments ~e, of types ~e"
(%generic-name generic) args (map class-of args)))))
;;; ---------------------------------------------------------------------------
;;; Customization variables