From 3feede9f97110a1ac3e202d9f8301ea25e2c396c Mon Sep 17 00:00:00 2001 From: janneke Date: Mon, 1 Mar 2004 20:48:49 +0000 Subject: [PATCH] *** empty log message *** --- scm/output-ps.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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) -- 2.39.5