From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 17 Dec 2004 13:29:49 +0000 (+0000)
Subject: (stderr): move stderr.
X-Git-Tag: release/2.5.14~404
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9c045ddbab3713d70d9344b18a54c826e79675c8;p=lilypond.git

(stderr): move stderr.
---

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index f418df157d..3456c2c88b 100644
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -822,7 +822,6 @@ alist_to_hashq (SCM alist)
   return tab; 
 }
 
-#if 1
 /*
   Debugging mem leaks:
  */
@@ -832,7 +831,6 @@ LY_DEFINE (ly_protects, "ly:protects",
 {
   return scm_protects;
 }
-#endif
 
 
 #if HAVE_PANGO_FC_FONT_MAP_ADD_DECODER_FIND_FUNC
diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 480e1672ad..3cd59bccda 100644
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -293,6 +293,12 @@ possibly turned off."
   (display message) (write x) (newline) x)
 ;;  x)
 
+
+(define-public (stderr string . rest)
+  (apply format (cons (current-error-port) (cons string rest)))
+  (force-output (current-error-port)))
+
+
 (define (index-cell cell dir)
   (if (equal? dir 1)
       (cdr cell)
diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index 8f3cb1a709..c1fd784b86 100644
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -56,10 +56,6 @@
 	     (scm framework-tex)
 	     (lily))
 
-;; helper functions
-(define (stderr string . rest)
-  (apply format (cons (current-error-port) (cons string rest)))
-  (force-output (current-error-port)))
 
 
 ;;;;;;;;