change to decoded#stream-read1
parent
8437c0ec3c
commit
641c61a966
|
@ -113,7 +113,7 @@ M: decoded stream-read-until
|
||||||
] [ nip ] if
|
] [ nip ] if
|
||||||
] [ 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 )
|
M: decoded stream-readln ( stream -- str )
|
||||||
"\r\n" over stream-read-until handle-readln ;
|
"\r\n" over stream-read-until handle-readln ;
|
||||||
|
|
Loading…
Reference in New Issue