rosetta-code.metronome: fix metronome to stop the timer.

diff --git a/extra/rosetta-code/metronome/metronome.factor b/extra/rosetta-code/metronome/metronome.factor
index 2a22907bf2cb1cc86617418fe1122b6a29c6ff6c..7b74caf9ed1281e41a3e7b46bddb43416454ab10 100644 (file)
--- a/extra/rosetta-code/metronome/metronome.factor
+++ b/extra/rosetta-code/metronome/metronome.factor
@@ -37,7 +37,7 @@ IN: rosetta-code.metronome
 
 : metronome ( bpm notes -- )
     [ start-metronome-timer ] dip
-    [ run-metronome ] curry [ stop-timer ] [ ] cleanup ;
+    [ run-metronome ] 2curry [ stop-timer ] [ ] cleanup ;
 
 : metronome-example ( -- ) 60 { 440 220 330 } metronome ;