From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 Sep 2009 02:33:34 +0000 (-0700)
Subject: Fix thinko in last change.
X-Git-Tag: 20100708-Gtk~301
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=07700bdb5243e7571d08c5a370c91150eb327846;p=mit-scheme.git

Fix thinko in last change.
---

diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm
index 0d55eb1fe..73a50a4c2 100644
--- a/tests/unit-testing.scm
+++ b/tests/unit-testing.scm
@@ -131,7 +131,7 @@ USA.
 		   (write-string " sub-tests" port)
 		   (newline port)))))
 	  ((> n-sub-tests 0)
-	   (report-sub-test-result name
+	   (report-sub-test-result (write-to-string name)
 				   (cdar sub-test-results)
 				   port))))
   ;; Value is true iff all tests passed.
@@ -140,7 +140,7 @@ USA.
 	 sub-test-results))
 
 (define (report-sub-test-result name failure port)
-  (write name port)
+  (write-string name port)
   (write-string ": " port)
   (cond ((not failure)
 	 (write-string "passed" port))