Simplify first-member and first-assoc

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index da04e6c89662e769015a0f8e2b0b3491d3378de6..fdd8cbfd3df5c2d51066427c84f0fbdd3d884d29 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -411,17 +411,11 @@ bookoutput function"
 (define-public (first-member members lst)
   "Return first successful member (of member) from @var{members} in
 @var{lst}."
-  (if (null? members)
-      #f
-      (let ((m (member (car members) lst)))
-       (if m m (first-member (cdr members) lst)))))
+  (any (lambda (m) (member m lst)) members))
 
 (define-public (first-assoc keys lst)
   "Return first successful assoc of key from @var{keys} in @var{lst}."
-  (if (null? keys)
-      #f
-      (let ((k (assoc (car keys) lst)))
-       (if k k (first-assoc (cdr keys) lst)))))
+  (any (lambda (k) (assoc k lst)) keys))
 
 (define-public (flatten-alist alist)
   (if (null? alist)