replace-one ( ele code-dict -- new-ele )

Vocabulary

compression.gzip.private

Inputs

ele	an object
code-dict	an object

Outputs

new-ele

an object

Definition

USING: arrays assocs kernel sequences ;

IN: compression.gzip.private

:: replace-one ( ele code-dict -- new-ele )
    ele array?
    [ ele first code-dict at ele second 2array ]
    [ ele code-dict at ] if ;