*** empty log message ***

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

diff --git a/scm/framework-gnome.scm b/scm/framework-gnome.scm
index b72e1f94a5c0055a9bb42dbf5916feb004bb9c5b..fb492474b8630cab67b93fd158f9c7330f2fc36d 100644 (file)
--- a/scm/framework-gnome.scm
+++ b/scm/framework-gnome.scm
@@ -30,10 +30,6 @@
 (define OUTPUT-SCALE (* 2.5 PIXELS-PER-UNIT))
 (define-public output-scale OUTPUT-SCALE)
 
-(define (stderr string . rest)
-  (apply format (cons (current-error-port) (cons string rest)))
-  (force-output (current-error-port)))
-
 (define (debugf string . rest)
   (if #f
       (apply stderr (cons string rest))))
@@ -380,9 +376,9 @@
                    (eq? keyval gdk:w))
                (equal? mods '(control-mask modifier-mask)))
           (gtk-main-quit))
-         (and (eq? keyval gdk:s)
-              (equal? mods '(control-mask modifier-mask))
-              (save-tweaks go))
+         ((and (eq? keyval gdk:s)
+               (equal? mods '(control-mask modifier-mask)))
+               (save-tweaks go))
          ((and #t ;;(null? mods)
                (eq? keyval gdk:plus))
           (scale-canvas go 2))