original commit: f6b22c613884a51c271ca71bce6cc4d66d373d92
This commit is contained in:
Matthew Flatt 2002-11-18 15:43:21 +00:00
parent 350f54131a
commit 1493551beb

View File

@ -8,6 +8,8 @@
(define mdc (make-object bitmap-dc%))
(define bm (make-object bitmap% 10 10))
(test #t 'is-color? (send bm is-color?))
(define (bad m . args)
(with-handlers ([exn:application:mismatch?
(lambda (x)