rosetta-code.metronome: fix metronome to stop the timer.
parent
ffdf4b6f82
commit
1cfbb02571
|
@ -37,7 +37,7 @@ IN: rosetta-code.metronome
|
||||||
|
|
||||||
: metronome ( bpm notes -- )
|
: metronome ( bpm notes -- )
|
||||||
[ start-metronome-timer ] dip
|
[ start-metronome-timer ] dip
|
||||||
[ run-metronome ] curry [ stop-timer ] [ ] cleanup ;
|
[ run-metronome ] 2curry [ stop-timer ] [ ] cleanup ;
|
||||||
|
|
||||||
: metronome-example ( -- ) 60 { 440 220 330 } metronome ;
|
: metronome-example ( -- ) 60 { 440 220 330 } metronome ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue