parsed-idx>hash ( seq -- hash )

Vocabulary

git

Inputs

seq

an object

Outputs

hash

an object

Definition

USING: accessors arrays assocs kernel sequences ;

IN: git

: parsed-idx>hash ( seq -- hash )
    H{ } clone [
        '[
            [ packfile-sha1>> ] [ triples>> ] bi
            [ first3 rot [ 3array ] dip _ set-at ] with each
        ] each
    ] keep ;