gtk: Make test-gport-performance.scm a standalone script.

diff --git a/src/gtk/test-gport-performance.scm b/src/gtk/test-gport-performance.scm
index b0ce57cba9d4fed160d8b948eb13c5af599490fd..413cf47dd860bed97c58c834b36c98ad930fe23d 100644 (file)
--- 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