From 44765bebb2b52776ecd1be49b8d7e0b1f4315016 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 17 Nov 2013 12:47:41 -0700 Subject: [PATCH] gtk: Make test-gport-performance.scm a standalone script. --- src/gtk/test-gport-performance.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/gtk/test-gport-performance.scm b/src/gtk/test-gport-performance.scm index b0ce57cba..413cf47dd 100644 --- a/src/gtk/test-gport-performance.scm +++ b/src/gtk/test-gport-performance.scm @@ -28,7 +28,7 @@ USA. ;; The number of trials for each test. (define repeats 7) -(define (test-port-performance) +(define (main) (test-sys-port-performance) (test-gnu-port-performance)) @@ -421,4 +421,7 @@ USA. ((string=? line "\f") '()) (else (cons line (loop))))))) -(define %trace display*) \ No newline at end of file +(define (%trace . objects) + (for-each display objects)) + +(main) \ No newline at end of file -- 2.25.1