From 95472fd844545e9796cdc73c909c47fe3ef567f5 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 27 Jul 2011 14:19:50 -0700 Subject: [PATCH] Use for-each iota; punt dotimes. --- tests/gtk/test-gport-performance.scm | 25 +++++++++---------------- 1 file changed, 9 insertions(+), 16 deletions(-) diff --git a/tests/gtk/test-gport-performance.scm b/tests/gtk/test-gport-performance.scm index d57b82704..80e6a7cb9 100644 --- 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 -- 2.25.1