lilypond-1.5.34

diff --git a/scm/backend-documentation-lib.scm b/scm/backend-documentation-lib.scm
index 3ea5632c0bb37965095eadd741e264244e176a8c..87b7e079dea96cd2c10341f5bc08323d4b865212 100644 (file)
--- a/scm/backend-documentation-lib.scm
+++ b/scm/backend-documentation-lib.scm
@@ -127,7 +127,6 @@
 
       (define (number-pair?  x)
        (and (pair? x) (number? (car x)) (number? (cdr x))))
-      
       (define (ly-grob? x) #f)
       (define (ly-input-location? x) #f)
       (define (dir? x) #f)

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

diff --git a/scm/interface-description.scm b/scm/interface-description.scm
index ec1a11d9524000fd526ec31bc077664f98ba96a1..d1db335f03bd7ea3434a18dc49f0b9b06d1fa184 100644 (file)
--- a/scm/interface-description.scm
+++ b/scm/interface-description.scm
@@ -184,7 +184,7 @@
 #'direction = where to put the victim object (left or right?)
 "
  '(
-   side-support 
+   side-support-elements 
    direction-source 
    direction 
    side-relative-direction