From 3a2e4969e994f6085d94456e9700bf841f9eeae1 Mon Sep 17 00:00:00 2001 From: Stephen Bloch Date: Thu, 14 Jul 2011 12:08:36 -0400 Subject: [PATCH] Corrected an error message that said it wanted a real, but actually expected an integer. (cherry picked from commit 83fd1e968d03a3483d0f6698bd387ff7d7d4a8a4) --- collects/2htdp/private/image-more.rkt | 8 ++++---- collects/2htdp/private/img-err.rkt | 4 ++-- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/2htdp/private/image-more.rkt b/collects/2htdp/private/image-more.rkt index 78bc2de002..a63a62928a 100644 --- a/collects/2htdp/private/image-more.rkt +++ b/collects/2htdp/private/image-more.rkt @@ -1372,14 +1372,14 @@ (define build-pen/make-pen (let ([orig-make-pen make-pen]) - (define/chk (make-pen color real-0-255 pen-style pen-cap pen-join) - (orig-make-pen color real-0-255 pen-style pen-cap pen-join)) + (define/chk (make-pen color int-0-255 pen-style pen-cap pen-join) + (orig-make-pen color int-0-255 pen-style pen-cap pen-join)) make-pen)) (define build-pen/pen (let ([orig-make-pen make-pen]) - (define/chk (pen color real-0-255 pen-style pen-cap pen-join) - (orig-make-pen color real-0-255 pen-style pen-cap pen-join)) + (define/chk (pen color int-0-255 pen-style pen-cap pen-join) + (orig-make-pen color int-0-255 pen-style pen-cap pen-join)) pen)) (define/chk freeze diff --git a/collects/2htdp/private/img-err.rkt b/collects/2htdp/private/img-err.rkt index 62f13518dc..e68488f185 100644 --- a/collects/2htdp/private/img-err.rkt +++ b/collects/2htdp/private/img-err.rkt @@ -253,9 +253,9 @@ (check-arg fn-name (and (integer? arg) (<= 0 arg 255)) 'integer\ between\ 0\ and\ 255 i arg) arg] - [(real-0-255) + [(int-0-255) (check-arg fn-name (and (integer? arg) (<= 0 arg 255)) - 'real\ number\ between\ 0\ and\ 255 i arg) + 'integer\ between\ 0\ and\ 255 i arg) arg] [(pen-style)