From: David Kastrup <dak@gnu.org>
Date: Wed, 9 Nov 2011 09:17:37 +0000 (+0100)
Subject: Make new predicate number-list?
X-Git-Tag: release/2.15.19-1~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fed50e05f7759ca14f2726c970f572c9cd00cd13;p=lilypond.git

Make new predicate number-list?
---

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")