From bdb95d7fc353fdaccc7965fa60679cca2ce4166c Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 26 Aug 2009 14:45:02 -0500 Subject: [PATCH] remove debug, fix bootstrap --- basis/images/loader/loader.factor | 2 +- basis/images/tiff/tiff.factor | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/basis/images/loader/loader.factor b/basis/images/loader/loader.factor index 60580d959a..8c458b0c9f 100644 --- a/basis/images/loader/loader.factor +++ b/basis/images/loader/loader.factor @@ -30,7 +30,7 @@ GENERIC: stream>image ( stream class -- image ) swap types get set-at ; : load-image ( path -- image ) - [ open-image-file ] [ image-class new ] bi load-image* ; + [ open-image-file ] [ image-class ] bi load-image* ; M: byte-array load-image* [ binary ] dip stream>image ; diff --git a/basis/images/tiff/tiff.factor b/basis/images/tiff/tiff.factor index 624641ae51..0d16bf75d4 100755 --- a/basis/images/tiff/tiff.factor +++ b/basis/images/tiff/tiff.factor @@ -449,7 +449,6 @@ ERROR: unhandled-compression compression ; dup strips>> concat >>bitmap ; : (strips-predictor) ( ifd -- ifd ) -B [ ] [ image-width find-tag ] [ samples-per-pixel find-tag ] tri