From fed50e05f7759ca14f2726c970f572c9cd00cd13 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Wed, 9 Nov 2011 10:17:37 +0100
Subject: [PATCH] Make new predicate number-list?

---
 scm/c++.scm  | 3 +++
 scm/lily.scm | 1 +
 2 files changed, 4 insertions(+)

diff --git a/scm/c++.scm b/scm/c++.scm
index 5a5f8e0bad..0ea05c944c 100644
--- a/scm/c++.scm
+++ b/scm/c++.scm
@@ -36,6 +36,9 @@
 (define-public (grob-list? x)
   (list? x))
 
+(define-public (number-list? x)
+  (and (list? x) (every number? x)))
+
 (define-public (moment-pair? x)
   (and (pair? x)
        (ly:moment? (car x)) (ly:moment? (cdr x))))
diff --git a/scm/lily.scm b/scm/lily.scm
index 78a7197fcd..e9f728f854 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -496,6 +496,7 @@ messages into errors.")
     (,markup-command-list? . "markup command list")
     (,markup-list? . "markup list")
     (,moment-pair? . "pair of moment objects")
+    (,number-list? . "number list")
     (,number-or-grob? . "number or grob")
     (,number-or-pair? . "number or pair")
     (,number-or-string? . "number or string")
-- 
2.39.5