From: janneke <janneke>
Date: Mon, 1 Mar 2004 20:48:49 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/2.1.36~211
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3feede9f97110a1ac3e202d9f8301ea25e2c396c;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)