Use for-each iota; punt dotimes.

diff --git a/tests/gtk/test-gport-performance.scm b/tests/gtk/test-gport-performance.scm
index d57b8270403e43aa02727fd58f8bbcd532b51522..80e6a7cb959831f8fe7491a008402df744045294 100644 (file)
--- a/tests/gtk/test-gport-performance.scm
+++ b/tests/gtk/test-gport-performance.scm
@@ -65,15 +65,15 @@ USA.
 (define (test-io read write)
   (let ((data (read)))
     (note "    reading")
-    (dotimes repeats
-            (lambda (i)
-              (gc-flip)
-              (show-time read)))
+    (for-each (lambda (i)
+               (gc-flip)
+               (show-time read))
+             (iota repeats))
     (note "    writing")
-    (dotimes repeats
-            (lambda (i)
-              (gc-flip)
-              (show-time (lambda () (write data)))))
+    (for-each (lambda (i)
+               (gc-flip)
+               (show-time (lambda () (write data))))
+             (iota repeats))
     data))
 
 (define (make-read-exprs with-input-port)
@@ -157,11 +157,4 @@ USA.
 (define (note . objects)
   (write-notification-line
    (lambda (port)
-     (for-each (lambda (object) (display object port)) objects))))
-
-(define (dotimes n procedure)
-  (define (loop i)
-    (if (<= i n)
-       (begin (procedure i)
-              (loop (1+ i)))))
-  (loop 1))
\ No newline at end of file
+     (for-each (lambda (object) (display object port)) objects))))
\ No newline at end of file