lit-to-bits ( lit -- bits )

Vocabulary

compression.gzip.private

Inputs

lit

an object

Outputs

bits

an object

Definition

USING: arrays kernel sequences ;

IN: compression.gzip.private

: lit-to-bits ( lit -- bits )
    dup array?
    [ [ first (lit-to-bits) ] [ second ] bi 2array ]
    [ (lit-to-bits) ] if ;