From 99c761437550efe4ad791524580f94ffdf32c4b3 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 20 Jul 2011 15:17:48 -0700 Subject: [PATCH] Rename central function per new file name. --- tests/gtk/test-gport-performance.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 2.25.1