write-channel ( prev-status value status quot -- status )

Vocabulary

midi.private

Inputs

prev-status	an object
value	an object
status	an object
quot	an object

Outputs

status

an object

Definition

USING: assocs kernel math ;

IN: midi.private

: write-channel ( prev-status value status quot -- status )
    [ swap [ "channel" of + [ write-status ] keep ] keep ] dip
    call ; inline