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 ] ] dip [ push-at ] curry
        compose assoc-each
    ] keep ;