Directs regtest output for last 2 files to stderr

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

diff --git a/input/regression/scheme-engraver.ly b/input/regression/scheme-engraver.ly
index d5fefc6507cfbf7f23fcc735d65ae2ad4edff9b5..115429f90cc4a5fb98c534dc5cfbeb421c82a223 100644 (file)
--- a/input/regression/scheme-engraver.ly
+++ b/input/regression/scheme-engraver.ly
@@ -16,18 +16,18 @@
        (lambda (trans)
        (display (list "initialize"
                  (ly:context-current-moment
-                  (ly:translator-context trans)) "\n"))))
+                  (ly:translator-context trans)) "\n") (current-error-port))))
       (cons 'start-translation-timestep
        (lambda (trans)
        (display (list "start-trans"
                  (ly:context-current-moment
-                  (ly:translator-context trans)) "\n"))))
+                  (ly:translator-context trans)) "\n") (current-error-port))))
       (cons 'listeners
        (list
        (cons 'rest-event (lambda (engraver event)
                           (let*
                            ((x (ly:engraver-make-grob engraver 'TextScript event)))
-                           (display (list "caught event" event "\ncreate:\n" x "\n"))
+                           (display (list "caught event" event "\ncreate:\n" x "\n") (current-error-port))
                            (ly:grob-set-property! x 'text "hi"))
                           ))
        ))
@@ -35,36 +35,36 @@
        (list
        (cons 'note-head-interface
         (lambda (engraver grob source-engraver)
-         (display (list "saw head: " grob " coming from " source-engraver))
+         (display (list "saw head: " grob " coming from " source-engraver) (current-error-port))
          ))
        ))
       (cons 'end-acknowledgers
        (list
        (cons 'beam-interface
         (lambda (engraver grob source-engraver)
-         (display (list "saw end of beam: " grob " coming from " source-engraver))
+         (display (list "saw end of beam: " grob " coming from " source-engraver) (current-error-port))
          ))
        ))
       (cons 'process-music
        (lambda (trans)
        (display (list "process-music"
                  (ly:context-current-moment
-                  (ly:translator-context trans)) "\n"))))
+                  (ly:translator-context trans)) "\n") (current-error-port))))
       (cons 'process-acknowledged
        (lambda (trans)
        (display (list "process-acknowledged"
                  (ly:context-current-moment
-                  (ly:translator-context trans)) "\n"))))
+                  (ly:translator-context trans)) "\n") (current-error-port))))
       (cons 'stop-translation-timestep
        (lambda (trans)
        (display (list "stop-trans"
                  (ly:context-current-moment
-                  (ly:translator-context trans)) "\n"))))
+                  (ly:translator-context trans)) "\n") (current-error-port))))
       (cons 'finalize
        (lambda (trans)
        (display (list "finalize"
                  (ly:context-current-moment
-                  (ly:translator-context trans)) "\n"))))
+                  (ly:translator-context trans)) "\n") (current-error-port))))
     )
 
                }}