From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 20 Jul 2011 22:17:48 +0000 (-0700)
Subject: Rename central function per new file name.
X-Git-Tag: mit-scheme-pucked-9.2.12~668
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=99c761437550efe4ad791524580f94ffdf32c4b3;p=mit-scheme.git

Rename central function per new file name.
---

diff --git a/tests/gtk/test-gport-performance.scm b/tests/gtk/test-gport-performance.scm
index bbb767026..24babca2d 100644
--- a/tests/gtk/test-gport-performance.scm
+++ b/tests/gtk/test-gport-performance.scm
@@ -33,9 +33,9 @@ USA.
 ;; The number of trials for each test.
 (define repeats 7)
 
-(define test-port-performance
+(define test-gport-performance
   (let ((cwd (directory-pathname (current-load-pathname))))
-    (named-lambda (test-port-performance)
+    (named-lambda (test-gport-performance)
       (with-working-directory-pathname cwd test))))
 
 (define (test)
@@ -163,5 +163,5 @@ USA.
 	       (loop (1+ i)))))
   (loop 1))
 
-;(register-test 'port-performance test-port-performance)
-;(test-port-performance)
\ No newline at end of file
+;(register-test 'port-performance test-gport-performance)
+;(test-gport-performance)
\ No newline at end of file