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

small fix to in image

Browse Source 
svn: r16425
This commit is contained in:
Matthias Felleisen 2009-10-24 21:13:23 +00:00
parent 8f4bbdc89a
commit 809b9dfbe7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/htdp/image.ss
View File

@ -109,7 +109,7 @@ plt/collects/tests/mzscheme/htdp-image.ss
(define (check-sizes who w h)
(unless (and (< 0 w 10000) (< 0 h 10000))
(error (format "cannot make ~a x ~a image" w h))))
(error who (format "cannot make ~a x ~a image" w h))))
(define (mode? x)
(member x '(solid "solid" outline "outline")))