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

stream-copy optimization

release
Slava Pestov 2007-11-18 01:10:58 -05:00
parent a908aca37e
commit ddb85815ef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/io/io.factor
View File

@ -25,7 +25,7 @@ GENERIC: stream-write-table ( table-cells style stream -- )
[ stream-write ] keep stream-nl ; [ stream-write ] keep stream-nl ;
: (stream-copy) ( in out -- ) : (stream-copy) ( in out -- )
64 1024 * pick stream-read 64 1024 * pick stream-read-partial
[ over stream-write (stream-copy) ] [ 2drop ] if* ; [ over stream-write (stream-copy) ] [ 2drop ] if* ;
: stream-copy ( in out -- ) : stream-copy ( in out -- )