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

improved color error message

Browse Source 
svn: r3142
This commit is contained in:
Robby Findler 2006-05-30 22:47:24 +00:00
parent f72cc3c675
commit ba9c0bed53
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/htdp/image.ss
View File

@ -80,7 +80,11 @@ plt/collects/tests/mzscheme/image-test.ss
(define (check-size name val arg-posn) (check name posi? val "positive exact integer" arg-posn))
(define (check-size/0 name val arg-posn) (check name nnosi? val "non-negative exact integer" arg-posn))
(define (check-image name val arg-posn) (check name image? val "image" arg-posn))
(define (check-image-color name val arg-posn) (check name image-color? val "image-color" arg-posn))
(define (check-image-color name val arg-posn)
(let ([simple-check (λ (x) (or (string? x) (symbol? x) (color? x)))])
(check name simple-check val "image-color" arg-posn)
(unless (image-color? val)
(error name "~e is not a valid color name" val))))
(define (check-mode name val arg-posn) (check name mode? val mode-str arg-posn))
(define (posi? i) (and (number? i) (integer? i) (positive? i) (exact? i)))