(stderr): move stderr.

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index f418df157d8e5076bb00fea350911a21fb932bc4..3456c2c88b68ccf6cf50103e3f47badcc8040807 100644 (file)
--- 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 480e1672ad8c0bd1e34622c288513ced7bcb03ed..3cd59bccda21cafd5baa70905f4482cd3b57b2f3 100644 (file)
--- 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 8f3cb1a709a2306dd1f8120a57dd6e561141bf6d..c1fd784b8665ddae4d289a8c4807dc85645d6612 100644 (file)
--- 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)))
 
 
 ;;;;;;;;