new-at ( value key assoc -- assoc' )

Vocabulary

persistent.assocs

Inputs

value	an object
key	an object
assoc	an object

Outputs

assoc'

an object

Definition

IN: persistent.assocs

GENERIC: new-at ( value key assoc -- assoc' )

Methods

USING: assocs kernel persistent.assocs ;

M: assoc new-at clone [ set-at ] keep ;


USING: accessors kernel math persistent.assocs
persistent.hashtables persistent.hashtables.nodes ;

M: persistent-hash new-at
    [
        [ 0 ] 3dip [ dup hashcode >fixnum ] [ root>> ] bi*
        (new-at) 1 0 ?
    ] [ count>> ] bi + persistent-hash boa ;


USING: accessors kernel persistent.assocs persistent.sequences
vlists ;

M: valist new-at vlist>> ppush ppush valist boa ;