write-mdb-persistent ( value quot -- value' )

Vocabulary

mongodb.tuple.persistent.private

Inputs

value	an object
quot	an object

Outputs

value'

an object

Definition

USING: accessors bson.constants combinators kernel
mongodb.tuple.collection ;

IN: mongodb.tuple.persistent.private

: write-mdb-persistent ( value quot -- value' )
    over [ ( tuple -- assoc ) call-effect ] dip
    [ [ tuple-collection name>> ] [ >toid ] bi ] keep
    [ add-storable ] dip [ tuple-collection name>> ] [ id>> ] bi
    <dbref> ;