From e2b4e399cde7dbb2b8ea488ba25c4dbe1c94384d Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Sun, 15 Nov 2009 12:49:52 -0800
Subject: [PATCH] functional-or returned #f for (functional-or #f #t #f).
 Fixed.

---
 scm/lily-library.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index b2255b7381..14de9098e4 100644
--- 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)
-- 
2.39.2