From 3fe31b1b8426705a1cb3a5e8093ea3b97b415c64 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 7 Jun 2011 07:24:41 -0700 Subject: [PATCH] Fix unused binding of 'geom in make-gtk-screen. --- src/gtk-screen/gtk-screen.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm index d7441e927..16da12be0 100644 --- a/src/gtk-screen/gtk-screen.scm +++ b/src/gtk-screen/gtk-screen.scm @@ -65,11 +65,11 @@ USA. (%trace "; make-gtk-screen "geometry"\n") (let* ((toplevel (gtk-window-new 'toplevel)) (screen (%make-gtk-screen toplevel (current-thread))) - (geom (if (default-object? geometry) - "80x24" - (begin - (guarantee-string geometry 'make-gtk-screen) - geometry)))) + (geometry* (if (default-object? geometry) + "80x24" + (begin + (guarantee-string geometry 'make-gtk-screen) + geometry)))) (gtk-window-set-opacity toplevel 0.95) ;; This does not get any re-allocations done. @@ -77,7 +77,7 @@ USA. (set-gtk-screen-font! screen "Monospace 11") (init-font-dimensions! screen) - (init-size! screen geometry) + (init-size! screen geometry*) (let ((thread (create-blinker-thread screen))) (%trace "; blinker thread: "thread"\n") (set-gtk-screen-blinker! screen thread) -- 2.25.1