From 4ed2d030c81508543188f79dbd552c6411688824 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 14 Mar 2009 00:03:44 -0500
Subject: [PATCH] bitmap loading was broken

---
 basis/images/images.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/images/images.factor b/basis/images/images.factor
index cb44825e62..aa2e11747e 100644
--- a/basis/images/images.factor
+++ b/basis/images/images.factor
@@ -62,7 +62,7 @@ M: R16G16B16 normalize-component-order*
     drop RGB16>8 add-dummy-alpha ;
 
 : BGR>RGB ( bitmap bytes-per-pixel -- pixels )
-    <groups> [ 3 cut [ reverse ] dip append ] map B{ } join ; inline
+    <sliced-groups> [ <reversed> ] map B{ } join ; inline
 
 M: BGRA normalize-component-order*
     drop 4 BGR>RGB ;