rosetta-code.metronome: add example as MAIN:

2013-09-29 19:55:27 +02:00 · 2013-09-29 19:55:27 +02:00 · ffdf4b6f82
parent d04bf5c10a
commit ffdf4b6f82
1 changed files with 3 additions and 1 deletions
--- a/extra/rosetta-code/metronome/metronome.factor
+++ b/extra/rosetta-code/metronome/metronome.factor
@ -39,4 +39,6 @@ IN: rosetta-code.metronome
    [ start-metronome-timer ] dip
    [ run-metronome ] curry [ stop-timer ] [ ] cleanup ;

-! example usage: 60 { 440 220 330 } metronome
+: metronome-example ( -- ) 60 { 440 220 330 } metronome ;
+
+MAIN: metronome-example