read-status ( prev-status -- prev-status' status )


Vocabulary
midi.private

Inputs
prev-statusan object


Outputs
prev-status'an object
statusan object


Definition
USING: io io.streams.peek kernel math ;

IN: midi.private

: read-status ( prev-status -- prev-status' status )
peek1 dup 128 <
[ drop dup ] [ drop read1 dup 255 = [ nip dup ] unless ] if
;