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 '[
        _ binary
        [ _ parse-deltas third [ apply-delta ] each ]
        with-byte-reader
    ] with-byte-writer ;