LSR - local run of makelsr

[lilypond.git] / Documentation / snippets / displaying-grob-ancestry.ly

diff --git a/Documentation/snippets/displaying-grob-ancestry.ly b/Documentation/snippets/displaying-grob-ancestry.ly
index c05e1369a8d37be74865370c90750680adc86f36..3a20732484400e6096b21c79fcf5bc399a3c15c6 100644 (file)
--- a/Documentation/snippets/displaying-grob-ancestry.ly
+++ b/Documentation/snippets/displaying-grob-ancestry.ly
@@ -195,10 +195,11 @@ NoteHead X,Y: NoteColumn
     (format #f "~&")))
 
 #(define (display-ancestry grob)
-   (format (current-error-port)
-      "~3&~a~2%~a~&"
-      (make-string 36 #\-)
-      (format-ancestry (get-ancestry grob) 0)))
+   (display
+    (string-append
+     (format #f "~3&~a~2%" (make-string 36 #\-))
+     (format-ancestry (get-ancestry grob) 0)
+     (format #f "~2&"))))
 
 \relative c' {
   \once \override NoteHead #'before-line-breaking = #display-ancestry