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

Remove micro-pessimization

db4
Slava Pestov 2008-06-14 02:45:04 -05:00
parent 2d35ea233f
commit 23f9578505
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/io/ports/ports.factor
View File

@ -98,11 +98,9 @@ TUPLE: output-port < buffered-port ;
: <output-port> ( handle -- output-port ) : <output-port> ( handle -- output-port )
output-port <buffered-port> ; output-port <buffered-port> ;
: can-write? ( len buffer -- ? )
[ buffer-fill + ] keep buffer-capacity <= ;
: wait-to-write ( len port -- ) : wait-to-write ( len port -- )
tuck buffer>> can-write? [ drop ] [ stream-flush ] if ; tuck buffer>> buffer-capacity <=
[ drop ] [ stream-flush ] if ;
M: output-port stream-write1 M: output-port stream-write1
dup check-disposed dup check-disposed