From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 17 Nov 2013 19:47:41 +0000 (-0700)
Subject: gtk: Make test-gport-performance.scm a standalone script.
X-Git-Tag: mit-scheme-pucked-9.2.12~421
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=44765bebb2b52776ecd1be49b8d7e0b1f4315016;p=mit-scheme.git

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 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