patch::: 1.3.106.jcn1

[lilypond.git] / scm / documentation-lib.scm

diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index b4782af375b15697ff5e0f2ea905027d06b1d281..7e1648846cb34d36b2e565299f948801f850ba7d 100644 (file)
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -13,6 +13,9 @@
          (uniqued-alist (cdr alist) (cons (car alist) acc)
   ))))
 
+(define (processing name)
+  (display (string-append "\nProcessing " name " ... ") (current-error-port)))
+
 (define (self-evaluating? x)
   (or (number? x) (string? x) (procedure? x) (boolean? x)))