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

fix bug in error checking for save-image

Browse Source
This commit is contained in:
Robby Findler 2010-10-31 10:11:24 -05:00
parent e80fb21c7c
commit d082e805b2
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/2htdp/private/image-more.rkt
View File

@ -57,7 +57,11 @@
[parent bp]) min-width 100) [parent bp]) min-width 100)
(send f show #t))) (send f show #t)))
(define/chk (save-image image filename [width (image-width image)] [height (image-height image)]) ;; the obfuscation in the width and height defaults is so that error checking happens in the right order
(define/chk (save-image image
filename
[width (if (image? image) (image-width image) 0)]
[height (if (image? image) (image-height image) 0)])
(let* ([bm (make-object bitmap% (let* ([bm (make-object bitmap%
(inexact->exact (ceiling width)) (inexact->exact (ceiling width))
(inexact->exact (ceiling height)))] (inexact->exact (ceiling height)))]