[Gd-chatter] r11657 - trunk/gwydion/common/io/streams

[agent at gwydiondylan.org]

Author: agent
Date: Mon Jan 28 06:16:24 2008
New Revision: 11657

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



Modified: trunk/gwydion/common/io/streams/convenience.dylan
==============================================================================
--- trunk/gwydion/common/io/streams/convenience.dylan	(original)
+++ trunk/gwydion/common/io/streams/convenience.dylan	Mon Jan 28 06:16:24 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?)