diff options
| author | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2006-10-15 12:25:12 +0000 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2006-10-15 12:25:12 +0000 |
| commit | 2d00470a9914e18d44edc2bab61adcfd2860bd22 (patch) | |
| tree | 8ebecf28777a3fcab7d06274c4740b8d71f2347d | |
| parent | 5bdfc2aecb6e67ca8398b2b25b0edb0c56a9f75a (diff) | |
* scm/lily-library.scm (list-join): use fold-right. Fixes #112
* input/regression/lyric-tie.ly (texidoc): use different words.
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | input/regression/lyric-tie.ly | 2 | ||||
| -rw-r--r-- | scm/lily-library.scm | 10 |
3 files changed, 10 insertions, 6 deletions
@@ -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 f36813f4a2..d4ae7d0743 100644 --- 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 54db6ccbe2..3ffc598c49 100644 --- 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) |