fix `read-bitmap' to accept an input port

Closes PR 11555
2010-12-19 06:24:58 -07:00 · 2010-12-19 06:24:58 -07:00 · dd8215d0dd
commit dd8215d0dd
parent 3518e027fb
1 changed files with 1 additions and 1 deletions
--- a/collects/racket/draw/private/bitmap.rkt
+++ b/collects/racket/draw/private/bitmap.rkt
@ -767,7 +767,7 @@
                         [any? [alpha? #t]])
  (make-object bitmap% w h #f alpha?))

-(define/top (read-bitmap [path-string? filename]
+(define/top (read-bitmap [(make-alts path-string? input-port?) filename]
                         [bitmap-file-kind-symbol? [kind 'unknown/alpha]]
                         [(make-or-false color%) [bg-color #f]]
                         [any? [complain-on-failure? #t]])