more info in no-applicable-method
svn: r3310
This commit is contained in:
parent
cdae5711a1
commit
29b58703a6
|
@ -1670,8 +1670,8 @@
|
||||||
(make-method (list <generic>)
|
(make-method (list <generic>)
|
||||||
(lambda (call-next-method generic . args)
|
(lambda (call-next-method generic . args)
|
||||||
(raise* make-exn:fail:contract
|
(raise* make-exn:fail:contract
|
||||||
"~s: no applicable primary methods for argument types ~e"
|
"~s: no applicable primary methods for arguments ~e, of types ~e"
|
||||||
(%generic-name generic) (map class-of args)))))
|
(%generic-name generic) args (map class-of args)))))
|
||||||
|
|
||||||
;;; ---------------------------------------------------------------------------
|
;;; ---------------------------------------------------------------------------
|
||||||
;;; Customization variables
|
;;; Customization variables
|
||||||
|
|
Loading…
Reference in New Issue
Block a user