write-match ( n distance writer -- )

Vocabulary

compression.deflate.private

Inputs

n	an object
distance	an object
writer	an object

Outputs

None

Definition

USING: math sequences ;

IN: compression.deflate.private

:: write-match ( n distance writer -- )
    n length-bases base-index :> l l 257 + writer write-literal
    n l length-bases nth - l length-extras nth writer write-bits
    distance distance-bases base-index
    :> d d 5 writer write-code distance d distance-bases nth -
    d distance-extras nth writer write-bits ;