From 580ff7fd324d8fe1ffed2cadc2ede25549b50952 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Thu, 4 Jun 2009 15:06:33 -0500
Subject: [PATCH] fix loading of bitmaps when computed size is 0

---
 basis/images/bitmap/bitmap.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/images/bitmap/bitmap.factor b/basis/images/bitmap/bitmap.factor
index 151c12132b..2ee7c2514c 100755
--- a/basis/images/bitmap/bitmap.factor
+++ b/basis/images/bitmap/bitmap.factor
@@ -212,11 +212,11 @@ ERROR: unknown-bitmap-header n ;
 
 : parse-bitmap ( loading-bitmap -- loading-bitmap )
     dup color-palette-length read >>color-palette
-    dup size-image>> [
+    dup size-image>> dup 0 > [
         read >>color-index
     ] [
-        dup color-index-length read >>color-index
-    ] if* ;
+        drop dup color-index-length read >>color-index
+    ] if ;
 
 ERROR: unsupported-bitmap-file magic ;