From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 24 Feb 2004 01:51:00 +0000 (+0000)
Subject: Clean up output a little.
X-Git-Tag: 20090517-FFI~1677
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c1e6bcaf067df5c07a6207bc1a9285346040eb22;p=mit-scheme.git

Clean up output a little.
---

diff --git a/v7/src/xml/test-parser.scm b/v7/src/xml/test-parser.scm
index 326fc6a61..17c4d4058 100644
--- a/v7/src/xml/test-parser.scm
+++ b/v7/src/xml/test-parser.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: test-parser.scm,v 1.11 2004/02/23 20:52:49 cph Exp $
+$Id: test-parser.scm,v 1.12 2004/02/24 01:51:00 cph Exp $
 
 Copyright 2001,2004 Massachusetts Institute of Technology
 
@@ -61,10 +61,8 @@ USA.
 				(write-string "Can't re-read: ")
 				(write-condition-report x
 							(current-output-port)))
-			      (begin
-				(write-string "Parsed: ")
-				(write v))))))))
-	   (newline)
+			      (write-string "Parsed")))))))
+	   (fresh-line)
 	   v))
        (directory-read
 	(merge-pathnames "*.xml" (pathname-as-directory directory)))))