From 864d165c240507cc063fe5f5afe50803c6c96828 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 13 Aug 2014 09:14:04 +0100 Subject: [PATCH] racket/draw: avoid an internal error on a bad bitmap --- pkgs/draw-pkgs/draw-lib/racket/draw/private/bitmap.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/draw-pkgs/draw-lib/racket/draw/private/bitmap.rkt b/pkgs/draw-pkgs/draw-lib/racket/draw/private/bitmap.rkt index dea6660321..20c8eaaeba 100644 --- a/pkgs/draw-pkgs/draw-lib/racket/draw/private/bitmap.rkt +++ b/pkgs/draw-pkgs/draw-lib/racket/draw/private/bitmap.rkt @@ -903,7 +903,8 @@ (define/public (prep-alpha width height) (when (and (not b&w?) - (not alpha-channel?)) + (not alpha-channel?) + s) (unless alpha-s-up-to-date? (unless alpha-s (set! alpha-s (cairo_image_surface_create CAIRO_FORMAT_ARGB32