Clean up output a little.

diff --git a/v7/src/xml/test-parser.scm b/v7/src/xml/test-parser.scm
index 326fc6a61699f37015223235455e6070ea3e1229..17c4d4058cff11e791340e7d91cf87917ac9e616 100644 (file)
--- 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)))))