X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocumentation-lib.scm;h=c7b276d07e5acdb1bbcba980e08d02fd47075570;hb=c9284cfe3b1fa3512f19c4e053077339c20d5662;hp=10c66c36a5fa4a95326436b28dcfefd0db9825a4;hpb=55a36d7beef61098884e49d6b853ce3d7a79811a;p=lilypond.git

diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index 10c66c36a5..c7b276d07e 100644
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -147,14 +147,14 @@
   "Add ref to X"
   (string-append "@ref{" x "}"))
 
-(define (human-listify l)
-  "Produce a textual enumeration from L, a list of strings"
+(define (human-listify lst)
+  "Produce a textual enumeration from LST, a list of strings"
   
   (cond
-   ((null? l) "none")
-   ((null? (cdr l)) (car l))
-   ((null? (cddr l)) (string-append (car l) " and " (cadr l)))
-   (else (string-append (car l) ", " (human-listify (cdr l))))))
+   ((null? lst) "none")
+   ((null? (cdr lst)) (car lst))
+   ((null? (cddr lst)) (string-append (car lst) " and " (cadr lst)))
+   (else (string-append (car lst) ", " (human-listify (cdr lst))))))
 
 (define (writing-wip x)
   (display (string-append "\nWriting " x " ... ") (current-error-port)))