* buildscripts/guile-gnome.sh: Build without gcc libtool version

[lilypond.git] / scm / output-gnome.scm

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index 025b10afdddebd60342d246aff0605ce9597c2e1..93fa0e322e7f050e5ae1a61560eb99826a4b2003 100644 (file)
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -244,6 +244,9 @@ lilypond-bin -fgnome input/simple-song.ly
 (define (horizontal-line x1 x2 thickness)
   (filledbox (- x1) (- x2 x1) (* .5 thickness) (* .5 thickness)))
 
-(define (define-origin file line col)
-  (if (procedure? point-and-click)
-      (list 'location line col file)))
+;;(define (define-origin file line col)
+;;  (if (procedure? point-and-click)
+;;      (list 'location line col file)))
+
+(define (grob-cause grob)
+  grob)