diff options
author | Andy Wingo <wingo@pobox.com> | 2008-09-18 20:05:23 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2008-09-18 20:05:23 +0200 |
commit | d600df9aa9c9afd072f066736964a2f013e0fbe3 (patch) | |
tree | 9acc8b24f9ed5a70c100aaa3efe16b7d115def89 | |
parent | efbd589204408fe8af33b9d86a7e33104997bf6a (diff) | |
download | guile-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.scm | 2 |
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)) |