From 163803853566779a08a444482d58f7fc8e876318 Mon Sep 17 00:00:00 2001 From: Phil Holmes Date: Sat, 31 Mar 2012 16:02:35 +0100 Subject: [PATCH] Directs displaying-grob-ancestry to stderr final Final version of patch sending snippet output to stderr rather than stdout. --- Documentation/snippets/displaying-grob-ancestry.ly | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/Documentation/snippets/displaying-grob-ancestry.ly b/Documentation/snippets/displaying-grob-ancestry.ly index 3a20732484..c05e1369a8 100644 --- a/Documentation/snippets/displaying-grob-ancestry.ly +++ b/Documentation/snippets/displaying-grob-ancestry.ly @@ -195,11 +195,10 @@ NoteHead X,Y: NoteColumn (format #f "~&"))) #(define (display-ancestry grob) - (display - (string-append - (format #f "~3&~a~2%" (make-string 36 #\-)) - (format-ancestry (get-ancestry grob) 0) - (format #f "~2&")))) + (format (current-error-port) + "~3&~a~2%~a~&" + (make-string 36 #\-) + (format-ancestry (get-ancestry grob) 0))) \relative c' { \once \override NoteHead #'before-line-breaking = #display-ancestry -- 2.39.5