write-status ( prev-status status -- )

Vocabulary

midi.private

Inputs

prev-status	an object
status	an object

Outputs

None

Definition

USING: io kernel math ;

IN: midi.private

: write-status ( prev-status status -- )
    dup 240 <
    [ [ = ] 1check [ drop ] [ write1 ] if ] [ nip write1 ] if ;