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 -- )
<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