rosetta-code.metronome: add example as MAIN:
parent
d04bf5c10a
commit
ffdf4b6f82
|
@ -39,4 +39,6 @@ IN: rosetta-code.metronome
|
||||||
[ start-metronome-timer ] dip
|
[ start-metronome-timer ] dip
|
||||||
[ run-metronome ] curry [ stop-timer ] [ ] cleanup ;
|
[ run-metronome ] curry [ stop-timer ] [ ] cleanup ;
|
||||||
|
|
||||||
! example usage: 60 { 440 220 330 } metronome
|
: metronome-example ( -- ) 60 { 440 220 330 } metronome ;
|
||||||
|
|
||||||
|
MAIN: metronome-example
|
||||||
|
|
Loading…
Reference in New Issue