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

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed Dec  3 20:38:57 2008
New Revision: 11410

Log:
Fix string out-of-bounds error.

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	Wed Dec  3 20:38:57 2008
@@ -1933,7 +1933,7 @@
   {
     try
       {
-        for (int i = 0; i++ < s.length();)
+        for (int i = 0; i < s.length(); i++)
           //###FIXME: the number of writes can be greatly reduced by
           // writing the space between newlines as chunks.
           _writeChar(s.charAt(i));