projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
da73562
)
Fix typo in recent change.
author
Chris Hanson
<org/chris-hanson/cph>
Fri, 1 Dec 2000 06:18:32 +0000
(06:18 +0000)
committer
Chris Hanson
<org/chris-hanson/cph>
Fri, 1 Dec 2000 06:18:32 +0000
(06:18 +0000)
v7/src/edwin/debug.scm
patch
|
blob
|
history
diff --git
a/v7/src/edwin/debug.scm
b/v7/src/edwin/debug.scm
index 29ae49798f1fa6034fc189c353b941ac32b4746f..b26603062e18e2bccc713072de3e39fda3cfe783 100644
(file)
--- a/
v7/src/edwin/debug.scm
+++ b/
v7/src/edwin/debug.scm
@@
-1,6
+1,6
@@
;;; -*-Scheme-*-
;;;
-;;; $Id: debug.scm,v 1.5
4 2000/12/01 06:07:13
cph Exp $
+;;; $Id: debug.scm,v 1.5
5 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))))))