remove XXX from bitmaps

db4
Doug Coleman 2009-02-13 15:47:07 -06:00
parent 813b0cb803
commit d7e10c3072
1 changed files with 1 additions and 2 deletions

View File

@ -3,7 +3,7 @@
USING: accessors alien alien.c-types arrays byte-arrays columns
combinators fry grouping io io.binary io.encodings.binary io.files
kernel macros math math.bitwise math.functions namespaces sequences
strings images endian summary annotations ;
strings images endian summary ;
IN: images.bitmap
TUPLE: bitmap-image < image ;
@ -105,7 +105,6 @@ ERROR: unknown-component-order bitmap ;
{
[ [ width>> ] [ height>> ] bi 2array ]
[ bitmap>component-order ]
[ drop little-endian ] !XXX
[ buffer>> ]
} cleave bitmap-image boa ;