From b35c6545a72c97371c3a05153c69657bc41ad117 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Tue, 18 Nov 2008 15:33:24 +0000 Subject: [PATCH] fixed small bug in error message for draw/idraw teachpack svn: r12491 --- collects/htdch/draw/support.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/htdch/draw/support.scm b/collects/htdch/draw/support.scm index ba9b802c51..0044fa9661 100644 --- a/collects/htdch/draw/support.scm +++ b/collects/htdch/draw/support.scm @@ -74,7 +74,7 @@ (define (check-arg value method argument) (or (> value 0) (raise-error - (format "Method ~a expects an int >= 0 for ~a argument, given ~a" method argument value)))) + (format "Method ~a expects an int > 0 for ~a argument, given ~a" method argument value)))) (define (to-lower-case s) (letrec ((lower