New upstream version 2.19.65

[lilypond.git] / input / regression / scheme-engraver.ly

diff --git a/input/regression/scheme-engraver.ly b/input/regression/scheme-engraver.ly
index 0f31685f912d00d2bf828673a325ddff020a9caa..cd1b848c35826419ea561b6ddbf2f22fc36be3ae 100644 (file)
--- a/input/regression/scheme-engraver.ly
+++ b/input/regression/scheme-engraver.ly
@@ -14,31 +14,31 @@
 engraver_demo =
 #(make-engraver
    ((initialize translator)
-    (format 1 "\n\n~16a: (initialize)\n" (t->m translator)))
+    (format (current-error-port) "\n\n~16a: (initialize)\n" (t->m translator)))
    ((start-translation-timestep translator)
-    (format 1 "~16a: (start-translation-timestep)\n" (t->m translator)))
+    (format (current-error-port) "~16a: (start-translation-timestep)\n" (t->m translator)))
    (listeners
      ((rest-event engraver event)
       (let ((grob (ly:engraver-make-grob engraver 'TextScript event)))
         (ly:grob-set-property! grob 'text "hi")
-        (format 1 "~16a: detected this rest event: ~a\n~16a: created this grob: ~a\n"
+        (format (current-error-port) "~16a: detected this rest event: ~a\n~16a: created this grob: ~a\n"
                 (t->m engraver) event (t->m engraver) grob))))
    (acknowledgers
      ((note-head-interface engraver grob source-engraver)
-      (format 1 "~16a: saw ~a coming from ~a\n"
+      (format (current-error-port) "~16a: saw ~a coming from ~a\n"
               (t->m engraver) grob source-engraver)))
    (end-acknowledgers
      ((beam-interface engraver grob source-engraver)
-      (format 1 "~16a: saw end of ~a coming from ~a\n"
+      (format (current-error-port) "~16a: saw end of ~a coming from ~a\n"
               (t->m engraver) grob source-engraver)))
    ((process-music translator)
-    (format 1 "~16a: (process-music)\n" (t->m translator)))
+    (format (current-error-port) "~16a: (process-music)\n" (t->m translator)))
    ((process-acknowledged translator)
-    (format 1 "~16a: (process-acknowledged)\n" (t->m translator)))
+    (format (current-error-port) "~16a: (process-acknowledged)\n" (t->m translator)))
    ((stop-translation-timestep translator)
-    (format 1 "~16a: (stop-translation-timestep)\n" (t->m translator)))
+    (format (current-error-port) "~16a: (stop-translation-timestep)\n" (t->m translator)))
    ((finalize translator)
-    (format 1 "~16a: (finalize)\n" (t->m translator))))
+    (format (current-error-port) "~16a: (finalize)\n" (t->m translator))))
 
 \layout {
   \context {