             { 1 [ inflate-static ] }
             { 2 [ inflate-dynamic ] }
             { 3 [ bad-zlib-data f ] }
-        }
-        case
-    ]
-    [ produce ] keep call suffix concat ;
+        } case
+    ] [ produce ] keep call suffix concat ;
 
 PRIVATE>
 

    [ dup array? [ second 0 <repetition> ] [ 1array ] if ] map concat
    nip swap cut 2array [ [ length>> [0,b) ] [ ] bi get-table ] map ;

: static-huffman-tables ( -- tables )
      0 143 [a,b] [ 8 ] replicate
    144 255 [a,b] [ 9 ] replicate append
    256 279 [a,b] [ 7 ] replicate append
    280 287 [a,b] [ 8 ] replicate append
    0 31 [a,b] [ 5 ] replicate 
    2array [ [ length>> [0,b) ] [ ] bi get-table ] map ;    

CONSTANT: length-table
    {

! Copyright (C) 2009 Marc Fauconneau.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs byte-vectors combinators
combinators.smart compression.huffman fry hashtables io.binary
kernel literals locals math math.bitwise math.order math.ranges
sequences sorting ;
QUALIFIED-WITH: bitstreams bs
IN: compression.inflate

<PRIVATE

