From 4d3ab54161994df16914b18868d9f90972fcd9ad Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 8 Dec 2006 15:58:16 +0100 Subject: [PATCH] function-{and,or} --- scm/lily-library.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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" -- 2.39.5