From: fred <fred>
Date: Wed, 27 Mar 2002 02:05:49 +0000 (+0000)
Subject: lilypond-1.5.34
X-Git-Tag: release/1.5.59~316
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c337af0c53c68949edb89de1803a6a58a9f9a997;p=lilypond.git

lilypond-1.5.34
---

diff --git a/scm/backend-documentation-lib.scm b/scm/backend-documentation-lib.scm
index 3ea5632c0b..87b7e079de 100644
--- 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 e2a807e76b..dc1bad45a8 100644
--- 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 ec1a11d952..d1db335f03 100644
--- 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