do-deltas ( bytes delta-bytes -- bytes' )

Vocabulary

git

Inputs

bytes	an object
delta-bytes	an object

Outputs

bytes'

an object

Definition

USING: io.encodings.binary io.streams.byte-array kernel
sequences ;

IN: git

: do-deltas ( bytes delta-bytes -- bytes' )
    [ binary ] 2dip
    [ parse-deltas third [ apply-delta ] each ] curry
    [ [ binary ] curry ] dip [ with-byte-reader ] curry compose
    with-byte-writer ;