Make new predicate number-list?

[lilypond.git] / scm / c++.scm

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