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

rosetta-code.image-noise: use delete-all.

locals-and-roots
John Benediktsson 2016-03-28 14:18:47 -07:00
parent 676168cabc
commit 14953f641f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/rosetta-code/image-noise/image-noise.factor
View File

@ -48,7 +48,7 @@ TUPLE: bw-noise-gadget < image-control timers cnt old-cnt fps-model ;
[ start-animation ] [ start-fps ] bi ;
: stop-animation ( gadget -- )
timers>> [ [ stop-timer ] each ] [ 0 swap set-length ] bi ;
timers>> [ [ stop-timer ] each ] [ delete-all ] bi ;
M: bw-noise-gadget graft* [ call-next-method ] [ setup-timers ] bi ;