write-status ( prev-status status -- )


Vocabulary
midi.private

Inputs
prev-statusan object
statusan object


Outputs
None

Definition
USING: io kernel math ;

IN: midi.private

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