[Guile-commits] GNU Guile branch, master, updated. release_1-9-12-139-g78e836e

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=78e836efffb3c1633c606447f29782e349f47747

The branch, master has been updated
       via  78e836efffb3c1633c606447f29782e349f47747 (commit)
      from  17285a7c491a5d23c6d44c519dbf5b93e3dbb916 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 78e836efffb3c1633c606447f29782e349f47747
Author: Andy Wingo <address@hidden>
Date:   Mon Oct 4 22:54:41 2010 +0200

    Revert "repl.scm next-char needed to read EOF from port"
    
    Actually peek-char => EOF does not guarantee that read-char => EOF. I
    don't know what to do about this.
    
    This reverts commit 6e1dccc42f9ec81e04524ccc0956c692ee423576.

-----------------------------------------------------------------------

Summary of changes:
 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 e416d1d..efe29ac 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -173,7 +173,7 @@
 (define (next-char wait)
   (if (or wait (char-ready?))
       (let ((ch (peek-char)))
-       (cond ((eof-object? ch) (read-char) ch)
+       (cond ((eof-object? ch) ch)
              ((char-whitespace? ch) (read-char) (next-char wait))
              (else ch)))
       #f))


hooks/post-receive
-- 
GNU Guile