Rename central function per new file name.

diff --git a/tests/gtk/test-gport-performance.scm b/tests/gtk/test-gport-performance.scm
index bbb76702621ef23b5b5ffb0c48ed6f6aadfe1677..24babca2de85a2337aaa45b767465fd411512458 100644 (file)
--- 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