From 939395ac13f110896fedda99da1d0c6c4d716113 Mon Sep 17 00:00:00 2001
From: Jon Harper <jon.harper87@gmail.com>
Date: Sun, 29 Sep 2013 19:06:58 +0200
Subject: [PATCH] rosetta-code.metronome: remove useless close-window call

---
 extra/rosetta-code/metronome/metronome.factor | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/extra/rosetta-code/metronome/metronome.factor b/extra/rosetta-code/metronome/metronome.factor
index eb452025b8..18b9331e0f 100644
--- a/extra/rosetta-code/metronome/metronome.factor
+++ b/extra/rosetta-code/metronome/metronome.factor
@@ -32,13 +32,11 @@ IN: rosetta-code.metronome
 
 : metronome ( bpm notes -- )
     <circular> open-metronome-window
-    [
-        swap 0 <semaphore>
-        {
-            [ 2nip start-metronome-timer ]
-            [ metronome-loop drop ]
-        } 4 ncleave
-    ]
-    [ close-window stop-timer ] bi ;
+    swap 0 <semaphore>
+    {
+        [ 2nip start-metronome-timer ]
+        [ metronome-loop drop ]
+    } 4 ncleave
+    stop-timer ;
 
 ! example usage: 60 { 440 220 330 } metronome