* input/regression/lyric-tie.ly (texidoc): use different words.
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>
\version "2.9.22"
\lyrics {
- bla~bla
+ bla~blo~blub
}
(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)