From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 7 Jun 2011 14:24:41 +0000 (-0700)
Subject: Fix unused binding of 'geom in make-gtk-screen.
X-Git-Tag: 20110609-Gtk-Screen~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3fe31b1b8426705a1cb3a5e8093ea3b97b415c64;p=mit-scheme.git

Fix unused binding of 'geom in make-gtk-screen.
---

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)