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:
1a9c8fb
)
Fix typo in previous change.
author
Chris Hanson
<org/chris-hanson/cph>
Fri, 3 Oct 1997 06:00:26 +0000
(06:00 +0000)
committer
Chris Hanson
<org/chris-hanson/cph>
Fri, 3 Oct 1997 06:00:26 +0000
(06:00 +0000)
v7/src/edwin/schmod.scm
patch
|
blob
|
history
diff --git
a/v7/src/edwin/schmod.scm
b/v7/src/edwin/schmod.scm
index 55bb39903dde7cc236ad640ad052d3e2c623e0ed..a4a8273671320bf92b7c88ffe892a1c09622fca7 100644
(file)
--- a/
v7/src/edwin/schmod.scm
+++ b/
v7/src/edwin/schmod.scm
@@
-1,6
+1,6
@@
;;; -*-Scheme-*-
;;;
-;;; $Id: schmod.scm,v 1.
39 1997/10/02 04:49:58
cph Exp $
+;;; $Id: schmod.scm,v 1.
40 1997/10/03 06:00:26
cph Exp $
;;;
;;; Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
;;;
@@
-314,7
+314,8
@@
Otherwise, it is shown in the echo area."
(cond ((pair? argl)
(insert-char #\space point)
(insert-string (symbol->string (car argl))
- point))
+ point)
+ (loop (cdr argl)))
((symbol? argl)
(insert-string " . " point)
(insert-string (symbol->string argl) point)))))