patch::: 1.3.127.jcn4

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

diff --git a/scm/c++.scm b/scm/c++.scm
index 18cd4e273f51be9eeaea128e4faea747ef950670..f3d795b7dad0d64995bd78db078d9a8a0d07b3ca 100644 (file)
--- a/scm/c++.scm
+++ b/scm/c++.scm
@@ -11,6 +11,10 @@
   (and (pair? x)
        (number? (car x)) (number? (cdr x))))
 
+(define (moment-pair?  x)
+  (and (pair? x)
+       (moment? (car x)) (moment? (cdr x))))
+
 (define (boolean-or-symbol? x)
   (or (boolean? x) (symbol? x)))