From 039d89ebe4b83ad023ed6f72fd21497e1bfb3554 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
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