read-number ( -- number )

Vocabulary

midi.private

Inputs

None

Outputs

number

an object

Definition

USING: io kernel math ;

IN: midi.private

: read-number ( -- number )
    0
    [ 7 bit? ] [ 7 shift read1 [ 127 bitand + ] keep ] do while
    ;