functional-or returned #f for (functional-or #f #t #f). Fixed.

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index b2255b7381a001741a88b53627161623be8a1f1d..14de9098e49111ff686c0fc36e6fb183160abe6d 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -299,7 +299,7 @@ bookoutput function"
 (define (functional-or . rest)
   (if (pair? rest)
       (or (car rest)
-          (apply functional-and (cdr rest)))
+          (apply functional-or (cdr rest)))
       #f))
 
 (define (functional-and . rest)