core/basis/extra: using while* in a few places.

[factor.git] / basis / io / encodings / string / string.factor

diff --git a/basis/io/encodings/string/string.factor b/basis/io/encodings/string/string.factor
index e6f278e5b3711663adc7b97e458bc1c9a1d62916..f58fb9890319c66ee6314d2980657a1fbbd440b4 100644 (file)
--- a/basis/io/encodings/string/string.factor
+++ b/basis/io/encodings/string/string.factor
@@ -13,7 +13,7 @@ IN: io.encodings.string
         ] [
             byte-array encoding <byte-reader> :> reader
             byte-array length encoding guess-decoded-length <sbuf> :> buf
-            [ reader stream-read1 dup ] [ buf push ] while drop
+            [ reader stream-read1 ] [ buf push ] while*
             buf "" like
         ] if
     ] if ; inline