write-varuint ( n -- )

Vocabulary

tinyvg

Inputs

n

an object

Outputs

None

Definition

USING: io kernel math ;

IN: tinyvg

: write-varuint ( n -- )
    [ dup 128 >= ]
    [ [ 127 bitand 128 bitor write1 ] [ -7 shift ] bi ] while
    write1 ;