summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2008-09-18 20:05:23 +0200
committerAndy Wingo <wingo@pobox.com>2008-09-18 20:05:23 +0200
commitd600df9aa9c9afd072f066736964a2f013e0fbe3 (patch)
tree9acc8b24f9ed5a70c100aaa3efe16b7d115def89
parentefbd589204408fe8af33b9d86a7e33104997bf6a (diff)
downloadguile-d600df9aa9c9afd072f066736964a2f013e0fbe3.tar.gz
fix case in which we can fail to exit the repl cleanly
* module/system/repl/repl.scm (next-char): Don't throw if we get an EOF, just return the EOF object. Fixes a case in which we fail to exit cleanly.
-rw-r--r--module/system/repl/repl.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index f9d17cdab..69a47f387 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -141,7 +141,7 @@
(define (next-char wait)
(if (or wait (char-ready?))
(let ((ch (peek-char)))
- (cond ((eof-object? ch) (newline) (throw 'quit))
+ (cond ((eof-object? ch) ch)
((char-whitespace? ch) (read-char) (next-char wait))
(else ch)))
#f))