Make new predicate number-list?

diff --git a/scm/c++.scm b/scm/c++.scm
index 5a5f8e0bad8b31c5b196c5c8e7bf5f8fb3c00d0c..0ea05c944c8e0553ab91f60813e1fcb4e8185fba 100644 (file)
--- 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 78a7197fcd05295aa64384d29ffa52f6d5cd04e1..e9f728f85416b8b2e6650c4f1765aaf8e295f6af 100644 (file)
--- 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")