steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

re-add fast>string to win32 io -- don't know where else to put it in library/

erg 2006-11-01 18:31:42 +00:00
parent 952ec8cca0
commit 68973b1a51
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/io/windows/stream.factor
View File

@ -30,6 +30,10 @@ TUPLE: win32-duplex-stream ;
dup win32-stream-timeout dup win32-stream-timeout
[ millis + swap set-win32-stream-cutoff ] [ drop ] if* ; [ millis + swap set-win32-stream-cutoff ] [ drop ] if* ;
: fast>string ( sbuf -- string )
dup length over underlying length number=
[ underlying ] [ >string ] if ; inline
! Write ! Write
: flush-output ( stream -- ) : flush-output ( stream -- )
dup update-timeout dup update-timeout