Directs regtest output for last 2 files to stderr (issue 5625053)

[PhilEHolmes]

Reviewers: dak, Graham Percival,

Message:
Please review.

Description:
2 further regtests that send output to stdout as opposed to stderr.
Updated to send the output to stderr.  This is the last of this series
of patches.

Please review this at http://codereview.appspot.com/5625053/

Affected files:
  M input/regression/loglevels.ly
  M input/regression/scheme-engraver.ly


Index: input/regression/loglevels.ly
diff --git a/input/regression/loglevels.ly b/input/regression/loglevels.ly
index  
705ed3299d974e101b7ef843cecb9184bbc3afa5..93abbf00b217697c9b36cc9adce10e6b222de252  
100644
--- a/input/regression/loglevels.ly
+++ b/input/regression/loglevels.ly
@@ -13,31 +13,31 @@ are commented out. Comment them in to check the output  
manually.
 }

 %%%% message functions of the Input class:
-#(display "\nMessage functions of the Input class:\n")
+#(display "\nMessage functions of the Input class:\n" (current-error-port))

 messageTest = #(define-music-function (parser location) ()
    (ly:input-message location "Test ly:input-message" )
    (make-music 'Music))

 {
-%   #(display "-) Testing message\n")
+%   #(display "-) Testing message\n" (current-error-port))
   \messageTest % message
-%   #(display "-) Testing warning\n")
+%   #(display "-) Testing warning\n" (current-error-port))
   c4( c( c) % warning
-%   #(display "-) Testing error\n")
+%   #(display "-) Testing error\n" (current-error-port))
 %   sr  % error
 }

 %%%% message functions in the warn.hh file:
-#(display "Message functions in the warn.hh file:\n")
+#(display "Message functions in the warn.hh file:\n" (current-error-port))

-% #(display "-) Testing debug\n")
+% #(display "-) Testing debug\n" (current-error-port))
 #(ly:debug "Test debug\n")
-% #(display "-) Testing progress\n")
+% #(display "-) Testing progress\n" (current-error-port))
 #(ly:progress "Test progress\n")
-% #(display "-) Testing message\n")
+% #(display "-) Testing message\n" (current-error-port))
 #(ly:message "Test message\n")
-% #(display "-) Testing warning\n")
+% #(display "-) Testing warning\n" (current-error-port))
 #(ly:warning "Test warning\n")
-% #(display "-) Testing error\n")
-% #(ly:error "Test error\n")
+% #(display "-) Testing error\n" (current-error-port))
+% #(ly:error "Test error\n" (current-error-port))
Index: input/regression/scheme-engraver.ly
diff --git a/input/regression/scheme-engraver.ly  
b/input/regression/scheme-engraver.ly
index  
d5fefc6507cfbf7f23fcc735d65ae2ad4edff9b5..115429f90cc4a5fb98c534dc5cfbeb421c82a223  
100644
--- 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))))
     )

                }}