From e91e07811a16c2e9cfa8955455c21d060a131ce4 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 9 Sep 2008 08:33:53 +0200 Subject: [PATCH] really newline on eof * module/system/repl/repl.scm (next-char): Another newline-on-eof case. --- module/system/repl/repl.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm index cf948c63e..f9d17cdab 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) (throw 'quit)) + (cond ((eof-object? ch) (newline) (throw 'quit)) ((char-whitespace? ch) (read-char) (next-char wait)) (else ch))) #f))