object-result ( quot -- object )


Vocabulary
bson.private

Inputs
quotan object


Outputs
objectan object


Definition
USING: assocs kernel namespaces ;

IN: bson.private

: object-result ( quot -- object )
[ state get clone [ clear-assoc ] [ ] [ ] tri state ] dip
with-variable ; inline