From: David Kastrup <dak@gnu.org>
Date: Sun, 10 Feb 2013 14:59:14 +0000 (+0100)
Subject: Add number-or-markup? predicate
X-Git-Tag: release/2.17.13-1~10^2~13
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=11351c345a8ada9b6ee652e499465da4630578ae;p=lilypond.git

Add number-or-markup? predicate
---

diff --git a/scm/c++.scm b/scm/c++.scm
index 8d1df2aed7..f0c5d3aea9 100644
--- a/scm/c++.scm
+++ b/scm/c++.scm
@@ -62,6 +62,9 @@
 (define-public (number-or-string? x)
   (or (number? x) (string? x)))
 
+(define-public (number-or-markup? x)
+  (or (number? x) (markup? x)))
+
 (define-public (string-or-pair? x)
   (or (string? x) (pair? x)))
 
diff --git a/scm/lily.scm b/scm/lily.scm
index 4905e0687b..e5e8cd93d6 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -575,6 +575,7 @@ messages into errors.")
     (,moment-pair? . "pair of moment objects")
     (,number-list? . "number list")
     (,number-or-grob? . "number or grob")
+    (,number-or-markup? . "number or markup")
     (,number-or-pair? . "number or pair")
     (,number-or-string? . "number or string")
     (,number-pair? . "pair of numbers")