Merge branch 'lilypond/translation' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / scm / song-util.scm

diff --git a/scm/song-util.scm b/scm/song-util.scm
index 22e5d83bd9d6612ede9133cd86bcf9d4acacf9fb..17bfc9abc459728e380b4e8cc09e8e93f8083cd8 100644 (file)
--- a/scm/song-util.scm
+++ b/scm/song-util.scm
@@ -1,4 +1,4 @@
-;;; festival.scm --- Festival singing mode output
+;;; song-util.scm --- Festival singing mode output
 
 ;; Copyright (C) 2006, 2007 Brailcom, o.p.s.
 
@@ -116,15 +116,6 @@
   `(set! ,list-var (append ,list-var (list ,object))))
 (export add!)
 
-(define-public (flatten lst)
-  (cond
-   ((null? lst)
-    lst)
-   ((pair? (car lst))
-    (append (flatten (car lst)) (flatten (cdr lst))))
-   (else
-    (cons (car lst) (flatten (cdr lst))))))
-
 (define-public (safe-car list)
   (if (null? list)
       #f