rackt/draw: fix internal error on too-large bitmap

original commit: 71bbe6ca9cac9bf853a36d5ce8744ce42f1c452b
This commit is contained in:
Matthew Flatt 2014-06-12 07:37:48 +01:00
parent 583b8b040a
commit bfe669e216

View File

@ -811,6 +811,11 @@
load-file load-file
p))) p)))
;; ----------------------------------------
;; No error on too-large bitmap:
(st #f (make-bitmap 1000000 1000000) ok?)
;; ---------------------------------------- ;; ----------------------------------------
(report-errs) (report-errs)