From 29b58703a68d6ed7386d07b4b97cf64d98d88d8e Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 9 Jun 2006 21:22:20 +0000
Subject: [PATCH] more info in no-applicable-method

svn: r3310
---
 collects/swindle/tiny-clos.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/swindle/tiny-clos.ss b/collects/swindle/tiny-clos.ss
index 458e568b7f..abd571bacc 100644
--- a/collects/swindle/tiny-clos.ss
+++ b/collects/swindle/tiny-clos.ss
@@ -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