From bcc949bc033891dd9f24fe0492d2c4fbddfb90e4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 29 Oct 2013 15:03:23 -0500 Subject: [PATCH] fix bitmap creation in bitmap/url closes PR 14133 --- pkgs/htdp-pkgs/htdp-lib/2htdp/private/image-more.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/htdp-pkgs/htdp-lib/2htdp/private/image-more.rkt b/pkgs/htdp-pkgs/htdp-lib/2htdp/private/image-more.rkt index ebe1c9bb33..15e539e5a1 100644 --- a/pkgs/htdp-pkgs/htdp-lib/2htdp/private/image-more.rkt +++ b/pkgs/htdp-pkgs/htdp-lib/2htdp/private/image-more.rkt @@ -1342,7 +1342,7 @@ (call/input-url (string->url string) get-pure-port (λ (port) - (make-object bitmap% port 'unknown #f #t))))) + (make-object bitmap% port 'unknown/alpha #f #t))))) (define/chk (bitmap/file filename) (unless (file-exists? filename)