Center harmonic heads if stem is invisible. Fixes #140

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

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 54db6ccbe2286891da5c0174ac33aaef2f62cd6b..7bdf96d05d542a73b97e5a2a9d5f5b1d45e83c87 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -233,14 +233,14 @@ found."
 
 (define-public (list-join lst intermediate)
   "put INTERMEDIATE  between all elts of LST."
-  
-  (reduce (lambda (elt prev)
+
+  (fold-right
+   (lambda (elem prev)
            (if (pair? prev)
-               (cons  elt (cons intermediate prev))
-               (list elt intermediate prev)))
+               (cons  elem (cons intermediate prev))
+               (list elem)))
          '() lst))
 
-
 (define-public (filtered-map proc lst)
   (filter
    (lambda (x) x)
@@ -500,7 +500,6 @@ possibly turned off."
 
 (define-public (car< a b) (< (car a) (car b)))
 
-
 (define-public (symbol<? lst r)
   (string<? (symbol->string lst) (symbol->string r)))