change to decoded#stream-read1

2008-02-21 16:11:35 -06:00 · 2008-02-21 16:11:35 -06:00 · 641c61a966
parent 8437c0ec3c
commit 641c61a966
1 changed files with 1 additions and 1 deletions
--- a/core/io/encodings/encodings.factor
+++ b/core/io/encodings/encodings.factor
@ -113,7 +113,7 @@ M: decoded stream-read-until
        ] [ nip ] if
    ] [ nip ] if ;

-M: decoded stream-read1 1 over stream-read ;
+M: decoded stream-read1 1 swap stream-read ;

 M: decoded stream-readln ( stream -- str )
    "\r\n" over stream-read-until handle-readln ;