From: David Kastrup <dak@gnu.org>
Date: Sun, 15 Nov 2009 20:49:52 +0000 (-0800)
Subject: functional-or returned #f for (functional-or #f #t #f). Fixed.
X-Git-Tag: release/2.13.8-1~36
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=e2b4e399cde7dbb2b8ea488ba25c4dbe1c94384d;p=lilypond.git

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

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)