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

Vocabulary

bson.private

Inputs

quot

an object

Outputs

bytes-written	an integer
start-index	an integer

Definition

USING: kernel math sequences typed ;

IN: bson.private

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