Handbook
Glossary
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>
;