mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

* boot-9.scm (error-catching-loop): don't read a line from

Browse source 
current input when quit is encountered, the previous change
fixes this too.
This commit is contained in:
Gary Houston 1997-05-13 04:46:16 +00:00
parent c7d97590d6
commit 1fbc60b2c3
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -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,

1
ice-9/boot-9.scm
View file

@ -2211,7 +2211,6 @@
(lambda (key . args)
(case key
((quit)
(read-line) ; discard trailing junk and linefeed.
(force-output)
(set! status args)
#f)