suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

show arguments on no-next-method too

Browse Source 
svn: r3333
This commit is contained in:
Eli Barzilay 2006-06-11 20:44:26 +00:00
parent b7d510e058
commit dd8d58e050
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/swindle/tiny-clos.ss
View File

@ -1657,14 +1657,16 @@
(case (%method-qualifier method) (case (%method-qualifier method)
[(:before) " in a `before' method"] [(:before) " in a `before' method"]
[(:after) " in an `after' method"] [(:after) " in an `after' method"]
[else ""])) [else ""])
(%generic-name generic))))) " with arguments: ~e")
(%generic-name generic) args))))
(add-method no-next-method (add-method no-next-method
(make-method (list (singleton #f) <method>) (make-method (list (singleton #f) <method>)
(lambda (call-next-method generic method . args) (lambda (call-next-method generic method . args)
(raise* make-exn:fail:contract (raise* make-exn:fail:contract
"~s: no applicable next method when calling a method directly" (concat "~s: no applicable next method in a direct method call"
(%method-name method))))) " with arguments: ~e")
(%method-name method) args))))
(add-method no-applicable-method (add-method no-applicable-method
(make-method (list <generic>) (make-method (list <generic>)