<metronome-gadget> ( bpm notes -- gadget )


Vocabulary
rosetta-code.metronome

Inputs
bpman object
notesan object


Outputs
gadgetan object


Definition
USING: accessors kernel ;

IN: rosetta-code.metronome

: <metronome-gadget> ( bpm notes -- gadget )
\ metronome-gadget new swap >>notes swap >>bpm ;