factor: trim using lists

[factor.git] / basis / images / memory / memory.factor

diff --git a/basis/images/memory/memory.factor b/basis/images/memory/memory.factor
index 67902390154f1dc154efd2dbf68a2ce3947cf154..26ce55946cb9af2575d53dc82a4aaa2c5a21b62c 100644 (file)
--- a/basis/images/memory/memory.factor
+++ b/basis/images/memory/memory.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien.c-types destructors fry images kernel
-libc math sequences ;
+USING: accessors alien.c-types alien.data destructors images
+kernel libc math sequences ;
 IN: images.memory
 
 ! Some code shared by core-graphics and cairo for constructing
@@ -10,7 +10,7 @@ IN: images.memory
 
 <PRIVATE
 
-: bitmap-size ( dim -- n ) product "uint" heap-size * ;
+: bitmap-size ( dim -- n ) product uint heap-size * ;
 
 : malloc-bitmap-data ( dim -- alien ) bitmap-size 1 calloc &free ;
 
@@ -20,12 +20,11 @@ IN: images.memory
     [ bitmap-data ] keep
     <image>
         swap >>dim
-        swap >>bitmap
-        little-endian? ARGB BGRA ? >>component-order ;
+        swap >>bitmap ;
 
 PRIVATE>
 
 : make-memory-bitmap ( dim quot -- image )
     '[
         [ malloc-bitmap-data ] keep _ [ <bitmap-image> ] 2bi
-    ] with-destructors ; inline
\ No newline at end of file
+    ] with-destructors ; inline