parsed-idx>hash2 ( seq -- hash )

Vocabulary

git

Inputs

seq

an object

Outputs

hash

an object

Definition

USING: accessors assocs assocs.extras kernel sequences ;

IN: git

: parsed-idx>hash2 ( seq -- hash )
    [
        [
            triples>>
            [ [ drop f ] [ first ] bi ] [ set-at ]
            sequence>hashtable
        ] [ packfile-sha1>> ] bi
    ] [ set-at ] sequence>hashtable ; inline