with-length ( quot -- bytes-written: integer start-index: integer )


Vocabulary
bson.private

Inputs
quotan object


Outputs
bytes-writtenan integer
start-indexan integer


Definition


TYPED: with-length
( quot -- bytes-written: integer start-index: integer )
[ get-output [ length ] [ ] bi ] dip call length swap
[ - ] keep ; inline