write-literal ( symbol writer -- )

Vocabulary

compression.deflate.private

Inputs

symbol	an object
writer	an object

Outputs

None

Definition

USING: combinators kernel math ;

IN: compression.deflate.private

:: write-literal ( symbol writer -- )
    symbol {
        { [ dup 144 < ] [ 48 + 8 ] }
        { [ dup 256 < ] [ 256 + 9 ] }
        { [ dup 280 < ] [ 256 - 7 ] }
        [ 88 - 8 ]
    } cond writer write-code ;