[armedbear-cvs] r11429 - branches/open-external-format/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Dec  6 19:44:21 2008
New Revision: 11429

Log:
Fix LISTEN.6.

Modified:
   branches/open-external-format/src/org/armedbear/lisp/Stream.java

Modified: branches/open-external-format/src/org/armedbear/lisp/Stream.java
==============================================================================
--- branches/open-external-format/src/org/armedbear/lisp/Stream.java	(original)
+++ branches/open-external-format/src/org/armedbear/lisp/Stream.java	Sat Dec  6 19:44:21 2008
@@ -1849,6 +1849,7 @@
       {
         reader.unread(n);
         --offset;
+        pastEnd = false;
         if (n == eolChar)
           --lineNumber;
       }