From 9eab2a7d71076e5c178a19f7624d09204fd0fd19 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@finkelstein.stack-effects.info>
Date: Sat, 14 Mar 2009 23:23:49 -0500
Subject: [PATCH] loading an image doesnt hang now, not quite right yet..

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

diff --git a/basis/images/bitmap/bitmap.factor b/basis/images/bitmap/bitmap.factor
index 1ba18f56a5..2dfdadfcdb 100755
--- a/basis/images/bitmap/bitmap.factor
+++ b/basis/images/bitmap/bitmap.factor
@@ -57,7 +57,7 @@ ERROR: bmp-not-supported n ;
 : parse-bitmap-header ( loading-bitmap -- loading-bitmap )
     read4 >>header-length
     read4 >>width
-    read4 >>height
+    read4 32 >signed >>height
     read2 >>planes
     read2 >>bit-count
     read4 >>compression
@@ -101,7 +101,7 @@ ERROR: unknown-component-order bitmap ;
     [ bitmap-image new ] dip
     {
         [ raw-bitmap>seq >>bitmap ]
-        [ [ width>> ] [ height>> ] bi 2array >>dim ]
+        [ [ width>> ] [ height>> abs ] bi 2array >>dim ]
         [ bitmap>component-order >>component-order ]
     } cleave ;