with-object-map ( quot: ( -- ) -- store-assoc )

Vocabulary

mongodb.tuple.persistent.private

Inputs

quot	a quotation with stack effect ( -- )

Outputs

store-assoc

an object

Definition

USING: kernel mongodb.tuple.persistent namespaces ;

IN: mongodb.tuple.persistent.private

: with-object-map ( quot: ( -- ) -- store-assoc )
    [ H{ } clone dup object-map ] dip with-variable ; inline