(write-uleb128) ( n quot: ( b -- ) -- )

Vocabulary

leb128.private

Inputs

n	an object
quot	a quotation with stack effect ( b -- )

Outputs

None

Definition

USING: kernel math math.bitwise ;

IN: leb128.private

:: (write-uleb128) ( n quot: ( b -- ) -- )
    n assert-non-negative [
        [ -7 shift dup 0 = not ] [ 7 bits ] bi over
        [ 128 bitor ] when quot call
    ] loop drop ; inline