serialize-cell ( n -- )

Vocabulary

serialize.private

Inputs

n

an object

Outputs

None

Definition

USING: endian io kernel math ;

IN: serialize.private

: serialize-cell ( n -- )
    [ 0 write1 ] [
        dup 127 <
        [ 128 bitor write1 ] [
            dup log2 8 /i 1 + dup 128 >
            [ 255 write1 dup serialize-cell ] [ dup write1 ] if
            >be write
        ] if
    ] if-zero ;