From: Han-Wen Nienhuys Date: Sun, 15 Oct 2006 12:25:12 +0000 (+0000) Subject: * scm/lily-library.scm (list-join): use fold-right. Fixes #112 X-Git-Tag: release/2.10.0-2~164 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2d00470a9914e18d44edc2bab61adcfd2860bd22;p=lilypond.git * 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 7c774d226b..ef763f8360 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2006-10-15 Han-Wen Nienhuys + * 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 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)