From c1e6bcaf067df5c07a6207bc1a9285346040eb22 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 24 Feb 2004 01:51:00 +0000
Subject: [PATCH] Clean up output a little.

---
 v7/src/xml/test-parser.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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)))))
-- 
2.25.1