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

[David Kastrup]

---
 scm/lily-library.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 4a7973a..5853744 100644
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -273,7 +273,7 @@
 (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)
-- 
1.6.5.1.36.g54298



-- 
David Kastrup