>id-persistent-hash ( assoc -- iphash )

Vocabulary

persistent.hashtables.identity

Inputs

assoc

an object

Outputs

iphash

an object

Definition

USING: assocs kernel persistent.assocs ;

IN: persistent.hashtables.identity

: >id-persistent-hash ( assoc -- iphash )
    IPH{ } swap [ spin new-at ] assoc-each ;