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 d7441e927c21b4574e958aaebf29e238a548e95c..16da12be0fcc4e0b4cf3f982edebce36c8d07e21 100644 (file)
--- 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)