diff options
-rw-r--r-- | ice-9/ChangeLog | 6 | ||||
-rw-r--r-- | ice-9/boot-9.scm | 1 |
2 files changed, 6 insertions, 1 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 8501e7274..f1c6b5596 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,9 @@ +Tue May 13 02:48:49 1997 Gary Houston <ghouston@actrix.gen.nz> + + * boot-9.scm (error-catching-loop): don't read a line from + current input when quit is encountered, the previous change + fixes this too. + Mon May 12 19:00:21 1997 Jim Blandy <jimb@floss.cyclic.com> * boot-9.scm (scm-style-repl): After reading an expression, diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index cce9b6fb5..c86e94078 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -2211,7 +2211,6 @@ (lambda (key . args) (case key ((quit) - (read-line) ; discard trailing junk and linefeed. (force-output) (set! status args) #f) |