write-code ( code n writer -- )

Vocabulary

compression.deflate.private

Inputs

code	an object
n	an object
writer	an object

Outputs

None

Definition

USING: math ;

IN: compression.deflate.private

:: write-code ( code n writer -- )
    n [| i |
        code n 1 - i - neg shift 1 bitand 1 writer write-bits
    ] each-integer ;