* stepmake/bin/install.py (dest): Only chmod/chown just created directories

[lilypond.git] / input / test / font-table.ly

diff --git a/input/test/font-table.ly b/input/test/font-table.ly
index fa1a5f6f8fdcfeb2ca7425dc8cc65f16b92001fd..a21d1791414c7a247915749b7d1825a88b6d4b56 100644 (file)
--- a/input/test/font-table.ly
+++ b/input/test/font-table.ly
@@ -28,18 +28,18 @@
    0
    (1+ (min-length (cdr lst) (1- n)) )))
 
-#(define (doc-chars names)
+#(define (doc-chars names acc)
   (let*
    ((n (min-length names 2))
     (head (take names n))
     (tail (drop names n))
     )
 
-   (cons
-    (make-line-markup (map doc-char head))
-    (if (null? tail)
-     '()
-     (doc-chars tail)))))
+   (if (null? head)
+    acc
+    (doc-chars  tail
+     (cons (make-line-markup (map doc-char head)) acc)))
+     ))
 
 #(define (group-lines lines)
   (let*
@@ -56,11 +56,11 @@
                        
 #(let*
   ((lines (doc-chars
-          (ly:font-glyph-list (format  "~a/share/lilypond/~a/fonts/otf/emmentaler-20.otf"
+          (ly:font-glyph-list (format  "~a/fonts/otf/emmentaler-20.otf"
                                (getenv "LILYPONDPREFIX")
-                               (lilypond-version)
-                             ))))
-   (pages (group-lines lines)))
+                             ))
+        '()))
+   (pages (group-lines (reverse lines))))
 
   (for-each 
    (lambda (x)