From dd8215d0dd70c3ef6a47404e0964fdfcd18b9167 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 19 Dec 2010 06:24:58 -0700 Subject: [PATCH] fix `read-bitmap' to accept an input port Closes PR 11555 --- collects/racket/draw/private/bitmap.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/draw/private/bitmap.rkt b/collects/racket/draw/private/bitmap.rkt index da99da0d02..f97ee71889 100644 --- 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]])