[Gd-chatter] r11658 - trunk/fundev/sources/io/streams

[agent at gwydiondylan.org]

Author: agent
Date: Mon Jan 28 06:17:13 2008
New Revision: 11658

Modified:
   trunk/fundev/sources/io/streams/convenience.dylan
Log:
Bug: 7367
read-to() had been reading delimiter; fixed.



Modified: trunk/fundev/sources/io/streams/convenience.dylan
==============================================================================
--- trunk/fundev/sources/io/streams/convenience.dylan	(original)
+++ trunk/fundev/sources/io/streams/convenience.dylan	Mon Jan 28 06:17:13 2008
@@ -39,11 +39,11 @@
     let seq = make(<stretchy-vector>);
     let matched? = #f;
     while (~stream-at-end?(stream) & ~matched?)
-      let next-elt = read-element(stream);
+      let next-elt = peek(stream);
       if (test(next-elt, elt))
         matched? := #t
       else
-        add!(seq, next-elt)
+        add!(seq, read-element(stream))
       end
     end;
     values(as(stream-sequence-class(stream), seq), matched?)