steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

rosetta-code.metronome: remove useless close-window call

db4
Jon Harper 2013-09-29 19:06:58 +02:00
parent d92741c26f
commit 939395ac13
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/rosetta-code/metronome/metronome.factor
View File

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