racket/draw: fix return value of load-file' from bitmap%'

original commit: 64bac4e573c9677b69958e331ee170881bb201a2
This commit is contained in:
Matthew Flatt 2012-10-01 18:13:50 -06:00
parent 7ed282f2a5
commit 4bf6588d14

View File

@ -620,4 +620,9 @@
;; ---------------------------------------- ;; ----------------------------------------
(let ([bm (make-object bitmap% 1 1)])
(test #t 'load-file (send bm load-file (collection-file-path "sk.jpg" "icons"))))
;; ----------------------------------------
(report-errs) (report-errs)