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

Corrected an error message that said it wanted a real, but actually

Browse Source 
expected an integer.
(cherry picked from commit 83fd1e968d)
This commit is contained in:
Stephen Bloch 2011-07-14 12:08:36 -04:00 committed by Eli Barzilay
parent a606c3a988
commit 3a2e4969e9
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/2htdp/private/image-more.rkt
View File

@ -1372,14 +1372,14 @@
(define build-pen/make-pen (define build-pen/make-pen
(let ([orig-make-pen make-pen]) (let ([orig-make-pen make-pen])
(define/chk (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 real-0-255 pen-style pen-cap pen-join)) (orig-make-pen color int-0-255 pen-style pen-cap pen-join))
make-pen)) make-pen))
(define build-pen/pen (define build-pen/pen
(let ([orig-make-pen make-pen]) (let ([orig-make-pen make-pen])
(define/chk (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 real-0-255 pen-style pen-cap pen-join)) (orig-make-pen color int-0-255 pen-style pen-cap pen-join))
pen)) pen))
(define/chk freeze (define/chk freeze

4
collects/2htdp/private/img-err.rkt
View File

@ -253,9 +253,9 @@
(check-arg fn-name (and (integer? arg) (<= 0 arg 255)) (check-arg fn-name (and (integer? arg) (<= 0 arg 255))
'integer\ between\ 0\ and\ 255 i arg) 'integer\ between\ 0\ and\ 255 i arg)
arg] arg]
[(real-0-255) [(int-0-255)
(check-arg fn-name (and (integer? arg) (<= 0 arg 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] arg]
[(pen-style) [(pen-style)