From fa2ab0d0c049e84e6b6a4839710f849cbbc61d08 Mon Sep 17 00:00:00 2001 From: Thomas Morley Date: Wed, 15 Mar 2017 00:20:22 +0100 Subject: [PATCH] Issue 5099 Fix format in input/regression/scheme-engraver.ly Passing a number to format as the port is deprecated Now always doing (format #t ...) --- input/regression/scheme-engraver.ly | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/input/regression/scheme-engraver.ly b/input/regression/scheme-engraver.ly index 0f31685f91..cd1b848c35 100644 --- 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 { -- 2.39.2