*** empty log message ***

[lilypond.git] / scm / lily-library.scm

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)