add-storable ( assoc ns toid -- )

Vocabulary

mongodb.tuple.persistent.private

Inputs

assoc	an object
ns	an object
toid	an object

Outputs

None

Definition

USING: assocs kernel mongodb.tuple.persistent namespaces ;

IN: mongodb.tuple.persistent.private

: add-storable ( assoc ns toid -- )
    [ [ H{ } clone ] dip object-map get at+ ] dip swap set-at ;
    inline