]> gitweb.factorcode.org Git - factor.git/commitdiff
rosetta-code.metronome: add example as MAIN:
authorJon Harper <jon.harper87@gmail.com>
Sun, 29 Sep 2013 17:55:27 +0000 (19:55 +0200)
committerJon Harper <jon.harper87@gmail.com>
Sun, 29 Sep 2013 17:55:27 +0000 (19:55 +0200)
extra/rosetta-code/metronome/metronome.factor

index e7fa848c2a395b252a6ccfb4406e96da7b8d3b83..2a22907bf2cb1cc86617418fe1122b6a29c6ff6c 100644 (file)
@@ -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