(text): uncomment dribble.

diff --git a/lily/lilypond-key.cc b/lily/lilypond-key.cc
index 80031c6fd341e72563e3f34109f428967b4f512c..21d3f6ed61984b1ff255255d3dd1e906578031dd 100644 (file)
--- a/lily/lilypond-key.cc
+++ b/lily/lilypond-key.cc
@@ -212,7 +212,7 @@ Lilypond_general_key::do_compare (Object_key const* key)const
   if (c)
     return c;
 
-  
+v  
   c = sign (disambiguation_count_ - other->disambiguation_count_);
   if (c)
     return c;

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index bdb49bc385a1581a96441ef408910f667d3f323b..d15c9951d70d9f4453c81bb2ec72012acccd7a7e 100644 (file)
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -280,12 +280,14 @@ lilypond -fgnome input/simple-song.ly
 ;;design:20.0
 
 (define (text font string)
-  (stderr "font-name: ~S\n" (ly:font-name font))
-  ;; TODO s/filename/file-name/
-  (stderr "font-filename: ~S\n" (ly:font-filename font))
-  
-  (stderr "pango-font-name: ~S\n" (pango-font-name font))
-  (stderr "pango-font-size: ~S\n" (pango-font-size font))
+  (if #f
+      (begin
+       (stderr "font-name: ~S\n" (ly:font-name font))
+       ;; TODO s/filename/file-name/
+       (stderr "font-filename: ~S\n" (ly:font-filename font))
+       
+       (stderr "pango-font-name: ~S\n" (pango-font-name font))
+       (stderr "pango-font-size: ~S\n" (pango-font-size font))))
   
   (make <gnome-canvas-text>
     #:parent (canvas-root)