*** empty log message ***

[lilypond.git] / scm / new-markup.scm

diff --git a/scm/new-markup.scm b/scm/new-markup.scm
index 5397514793d6b7ce48ab132454ceffec6ba89294..a5dbc73f58e43a6e731b8a34d4e50ab5402af59b 100644 (file)
--- a/scm/new-markup.scm
+++ b/scm/new-markup.scm
@@ -356,9 +356,9 @@ eg: ((italic) (raise 4) (bold)), maps the commands on each markup argument, eg:
   (not (not (markup-command-signature x))))
 
 (define (markup-list? arg)
-  (define (markup-list-inner? l)
-    (or (null? l)
-        (and (markup? (car l)) (markup-list-inner? (cdr l)))))
+  (define (markup-list-inner? lst)
+    (or (null? lst)
+        (and (markup? (car lst)) (markup-list-inner? (cdr lst)))))
   (and (list? arg) (markup-list-inner? arg)))
 
 (define (markup-argument-list? signature arguments)