From 9d60dfbbd11e53e38348b82449caffcaf6df315b Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 2 Jan 2007 23:11:57 +0100
Subject: [PATCH] show XML with ly:progress

---
 input/regression/to-xml.ly | 23 +++++++----------------
 1 file changed, 7 insertions(+), 16 deletions(-)

diff --git a/input/regression/to-xml.ly b/input/regression/to-xml.ly
index 036063fbdb..7db3f8dd08 100644
--- a/input/regression/to-xml.ly
+++ b/input/regression/to-xml.ly
@@ -1,27 +1,18 @@
 \version "2.10.0"
 
-fooBar =  { << c''4 \\ g'4 >> }
+testMusic =  { << c''4 \\ g'4 >> }
 
-#(ly:set-option 'parse-protect #f)
 #(load-from-path "to-xml.scm")
 
-#(music-to-xml fooBar (current-output-port))
+#(ly:progress "\nXML:\n\n~A\n"
+  (call-with-output-string
+   (lambda (p) (music-to-xml testMusic p))))
 
 \header {
-    texidoc = "@cindex To XML"
-	texidoc = #(string-append
-      "The input representation is very generic. Therefore, it
-      should not be hard to convert it to XML or a similar format:\n\n"
-
-      "@example\n"
-	(call-with-output-string
-	       (lambda (p) (music-to-xml fooBar p))
-      )
-    "@end example" )
+  texidoc =
+  "The input representation is generic, and may be translated to XML. "
 }
 
 
-\score {
-\fooBar
-}
+\testMusic
 
-- 
2.39.2