fix bitmap creation in bitmap/url

closes PR 14133
2013-10-29 15:03:23 -05:00 · 2013-10-29 15:03:23 -05:00 · bcc949bc03
commit bcc949bc03
parent 684ede3157
1 changed files with 1 additions and 1 deletions
--- 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)