deserialize-cell ( -- n )

Vocabulary

serialize.private

Inputs

None

Outputs

n

an object

Definition

USING: combinators endian io kernel math ;

IN: serialize.private

: deserialize-cell ( -- n )
    read1 {
        { [ dup 255 = ] [ drop deserialize-cell read be> ] }
        { [ dup 128 > ] [ 128 bitxor ] }
        [ read be> ]
    } cond ;