at+ ( value key assoc -- value )

Vocabulary

mongodb.tuple.persistent.private

Inputs

value	an object
key	an object
assoc	an object

Outputs

value

an object

Definition

USING: assocs kernel ;

IN: mongodb.tuple.persistent.private

: at+ ( value key assoc -- value )
    2dup key? [ at nip ] [ [ dup ] 2dip set-at ] if ; inline