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

Fix duplex-stream

slava 2006-08-04 04:24:20 +00:00
parent e142cac05c
commit fee1d9b076
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/io/duplex-stream.factor
View File

@ -61,10 +61,9 @@ M: duplex-stream stream-close
#! buffer needs to be flushed before we close the fd. #! buffer needs to be flushed before we close the fd.
dup duplex-stream-closed? [ dup duplex-stream-closed? [
t over set-duplex-stream-closed? t over set-duplex-stream-closed?
dup dup duplex-stream-out stream-close
duplex-stream-out stream-close dup duplex-stream-in stream-close
duplex-stream-in stream-close ] unless drop ;
] unless ;
M: duplex-stream set-timeout M: duplex-stream set-timeout
2dup 2dup