From 53403090803cdc679f0838f9ef53ef61c7c1c197 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Thu, 29 Mar 2012 22:47:20 -0400 Subject: [PATCH] Make has-alpha-channel? return a boolean. This method used to violate the documented contract. --- 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 eb52532086..f9e71d563c 100644 --- a/collects/racket/draw/private/bitmap.rkt +++ b/collects/racket/draw/private/bitmap.rkt @@ -265,7 +265,7 @@ (def/public (get-height) (max 1 height)) (def/public (get-depth) (if b&w? 1 32)) (def/public (is-color?) (not b&w?)) - (def/public (has-alpha-channel?) alpha-channel?) + (def/public (has-alpha-channel?) (and alpha-channel? #t)) (define/private (check-alternate who) (when alt?