Fix typo in recent change.
authorChris Hanson <org/chris-hanson/cph>
Fri, 1 Dec 2000 06:18:32 +0000 (06:18 +0000)
committerChris Hanson <org/chris-hanson/cph>
Fri, 1 Dec 2000 06:18:32 +0000 (06:18 +0000)
v7/src/edwin/debug.scm

index 29ae49798f1fa6034fc189c353b941ac32b4746f..b26603062e18e2bccc713072de3e39fda3cfe783 100644 (file)
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: debug.scm,v 1.54 2000/12/01 06:07:13 cph Exp $
+;;; $Id: debug.scm,v 1.55 2000/12/01 06:18:32 cph Exp $
 ;;;
 ;;; Copyright (c) 1992-2000 Massachusetts Institute of Technology
 ;;;
@@ -1009,7 +1009,7 @@ The buffer below describes the current subproblem or reduction.
                   (let loop ((default default-screen-geometry))
                     (let ((geometry
                            (prompt-for-string "Please enter a geometry"
-                                              default-screen-geometry)))
+                                              default)))
                       (if (geometry? geometry)
                           geometry
                           (loop geometry))))))