* scm/lily-library.scm (list-join): use fold-right. Fixes #112

* input/regression/lyric-tie.ly (texidoc): use different words.

diff --git a/ChangeLog b/ChangeLog
index 7c774d226b35993c829c2c1a93db3b524cf21473..ef763f8360fb660af7e5dac5c82fc868cf1a6b5f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2006-10-15  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+       * scm/lily-library.scm (list-join): use fold-right. Fixes #112
+
+       * input/regression/lyric-tie.ly (texidoc): use different words.
+
        * mf/GNUmakefile (ALL_GEN_FILES): remove fonts.cache-1
 
 2006-10-15  Erik Sandberg  <mandolaerik@gmail.com>

diff --git a/input/regression/lyric-tie.ly b/input/regression/lyric-tie.ly
index f36813f4a2cb3b05d8bcbcbc535146ab2aba757d..d4ae7d0743ab5d7cae01140dd1a498b17ef77162 100644 (file)
--- a/input/regression/lyric-tie.ly
+++ b/input/regression/lyric-tie.ly
@@ -6,5 +6,5 @@ texidoc = "Tildes in lyric syllables are converted to tie symbols."
 \version "2.9.22"
 
 \lyrics {
-  bla~bla
+  bla~blo~blub 
 }

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 54db6ccbe2286891da5c0174ac33aaef2f62cd6b..3ffc598c4965d7fbb2ec17fa9988d32babec44b1 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)