metronome-quot ( gadget -- quot )


Vocabulary
rosetta-code.metronome

Inputs
gadgetan object


Outputs
quotan object


Definition
USING: accessors circular kernel ;

IN: rosetta-code.metronome

: metronome-quot ( gadget -- quot )
dup notes>> <circular> [ metronome-iteration ] 2curry ;