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