From 3a03f08900b81df7612bcd743366bb7a60d3e390 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 19 Feb 2008 07:36:49 +0000 Subject: [PATCH] fix arity error message svn: r8714 --- collects/scheme/private/kw.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scheme/private/kw.ss b/collects/scheme/private/kw.ss index 76a49a91f1..1068859dbe 100644 --- a/collects/scheme/private/kw.ss +++ b/collects/scheme/private/kw.ss @@ -44,10 +44,10 @@ (loop (cdr req)))))])))]) (string-append (cond - [(number? a) (format "expects ~a argument~a" a (if (= a 1) "" "s"))] + [(number? a) (format "~a argument~a" a (if (= a 1) "" "s"))] [(arity-at-least? a) (let ([a (arity-at-least-value a)]) - (format "expects at least ~a argument~a" a (if (= a 1) "" "s")))] + (format "at least ~a argument~a" a (if (= a 1) "" "s")))] [else "a different number of arguments"]) (if (null? req)