diff --git a/basis/compression/huffman/huffman.factor b/basis/compression/huffman/huffman.factor index 60b3a1d5a1..6ef9c2fabc 100755 --- a/basis/compression/huffman/huffman.factor +++ b/basis/compression/huffman/huffman.factor @@ -1,11 +1,11 @@ ! Copyright (C) 2009 Marc Fauconneau. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors alt.bitstreams arrays assocs constructors fry +USING: accessors arrays assocs constructors fry hashtables io kernel locals math math.order math.parser math.ranges multiline sequences ; IN: compression.huffman -QUALIFIED-WITH: alt.bitstreams bs +QUALIFIED-WITH: bitstreams bs 2 clump [ first2 dup [ third ] [ 0 2 rot set-nth ] bi png-unfilter-line ] map concat ; : zlib-inflate ( bytes -- bytes ) - bs: + bs: [ check-zlib-header ] [ inflate-loop ] bi inflate-lz77 ; diff --git a/basis/images/jpeg/jpeg.factor b/basis/images/jpeg/jpeg.factor index 0588e5c365..648923704a 100755 --- a/basis/images/jpeg/jpeg.factor +++ b/basis/images/jpeg/jpeg.factor @@ -9,7 +9,7 @@ math.ranges math.vectors memoize multiline namespaces sequences sequences.deep ; IN: images.jpeg -QUALIFIED-WITH: alt.bitstreams bs +QUALIFIED-WITH: bitstreams bs TUPLE: jpeg-image < image { headers } @@ -274,7 +274,7 @@ MEMO: dct-matrix-blas ( -- m ) dct-matrix >float-blas-matrix ; : baseline-decompress ( -- ) jpeg> bitstream>> cleanup-bitstream { 255 255 255 255 } append - >byte-array bs: jpeg> (>>bitstream) + >byte-array bs: jpeg> (>>bitstream) jpeg> [ bitstream>> ] [ [ [ ] with map ] change-huff-tables drop ] bi jpeg> components>> [ fetch-tables ] each jpeg> setup-bitmap