release: 1.5.34

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

diff --git a/scm/c++.scm b/scm/c++.scm
index e2a807e76b08c884d8219327ec4de3e6bdf587b1..dc1bad45a80a2ba913ca64adcca1ebd167d8e527 100644 (file)
--- a/scm/c++.scm
+++ b/scm/c++.scm
@@ -10,7 +10,10 @@
 (define (number-pair?  x)
   (and (pair? x)
        (number? (car x)) (number? (cdr x))))
-
+(define (number-or-grob? x)
+  (or (ly-grob? x) (number? x))
+  )
+        
 (define (moment-pair?  x)
   (and (pair? x)
        (moment? (car x)) (moment? (cdr x))))
@@ -57,6 +60,7 @@
    (,number-or-string? . "number or string")
    (,number-or-boolean? . "number or boolean")
    (,markup? . "markup (list or string)")
+   (,number-or-grob? . "number or grob")
    ))