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

diff --git a/extra/rosetta-code/image-noise/image-noise.factor b/extra/rosetta-code/image-noise/image-noise.factor
index 6cf2f647aed257d35b79371e8459979452dea92e..72b51662132aa6e265ccc373e5e2ecf1609beb4a 100644 (file)
--- a/extra/rosetta-code/image-noise/image-noise.factor
+++ b/extra/rosetta-code/image-noise/image-noise.factor
@@ -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 ;