LSR updates

[lilypond.git] / Documentation / snippets / using-ly-grob-object-to-access-grobs-with--tweak.ly

diff --git a/Documentation/snippets/using-ly-grob-object-to-access-grobs-with--tweak.ly b/Documentation/snippets/using-ly-grob-object-to-access-grobs-with--tweak.ly
index 16e98228b8b7c9ca233b39f60107fced80f36272..09b792172e54fbbecd58c7fdad8ab6d882f28a76 100644 (file)
--- a/Documentation/snippets/using-ly-grob-object-to-access-grobs-with--tweak.ly
+++ b/Documentation/snippets/using-ly-grob-object-to-access-grobs-with--tweak.ly
@@ -78,8 +78,6 @@ Example console output:
   doctitle = "Using ly:grob-object to access grobs with \\tweak"
 } % begin verbatim
 
-
-
 #(define (notehead-get-accidental notehead)
    ;; notehead is grob
    (ly:grob-object notehead 'accidental-grob))
@@ -103,9 +101,9 @@ Example console output:
    (let ((accidental (notehead-get-accidental notehead))
          (arpeggio (notehead-get-arpeggio notehead))
          (stem (notehead-get-stem notehead)))
-     (format #t "~2&~a\n" (make-string 20 #\-))
+     (format (current-error-port) "~2&~a\n" (make-string 20 #\-))
      (for-each
-      (lambda (x) (format #t "~a\n" x))
+      (lambda (x) (format (current-error-port) "~a\n" x))
       (list accidental arpeggio stem))))
 
 \relative c' {