From: Jan Nieuwenhuizen Date: Mon, 1 Mar 2004 20:48:49 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: release/2.1.29~30 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=039d89ebe4b83ad023ed6f72fd21497e1bfb3554;p=lilypond.git *** empty log message *** --- diff --git a/scm/output-ps.scm b/scm/output-ps.scm index 96f02c1202..84cbe3fe86 100644 --- a/scm/output-ps.scm +++ b/scm/output-ps.scm @@ -374,8 +374,6 @@ (let ((val (variable-ref var)) (tex-key (symbol->string sym))) - (format (current-error-port) "SYM:~S\n" sym) - (if (memq sym fields) (header-to-file basename sym val)) @@ -415,6 +413,8 @@ (define header-stencils '()) (define output-port (current-error-port)) + +;; just calling this from paper-score gives Stack overflow. (define (set-port p) (set! output-port p) "") @@ -430,8 +430,6 @@ (define (output-stencil port expr offset) (if (pair? expr) (let ((head (car expr))) - (format (current-error-port) "head: ~S\n" head) - (force-output (current-error-port)) (cond ((ly:input-location? head) (display (apply define-origin (ly:input-location head)) port)