From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 8 Dec 2006 14:58:16 +0000 (+0100)
Subject: function-{and,or}
X-Git-Tag: release/2.11.2-1~55
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4d3ab54161994df16914b18868d9f90972fcd9ad;p=lilypond.git

function-{and,or}
---

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 3575e13264..fc8d291dec 100644
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -230,6 +230,18 @@ found."
 ;;;;;;;;;;;;;;;;
 ;; list
 
+(define (functional-or . rest)
+  (if (pair? rest)
+      (or (car rest)
+	   (apply functional-and (cdr rest)))
+      #f))
+
+(define (functional-and . rest)
+  (if (pair? rest)
+      (and (car rest)
+	   (apply functional-and (cdr rest)))
+      #t))
+
 (define (split-list lst n)
   "Split LST in N equal sized parts"