etag-hash ( alist -- hash )

Vocabulary

ctags.etags.private

Inputs

alist

an object

Outputs

hash

an object

Definition

USING: arrays assocs kernel sequences ;

IN: ctags.etags.private

: etag-hash ( alist -- hash )
    H{ } clone
    [ '[ first2 swap [ 2array ] dip _ push-at ] assoc-each ]
    keep ;