port stream-close didn't close the fd
parent
21fba39b80
commit
6ab56af2f3
|
@ -306,7 +306,9 @@ M: port stream-write-attr ( string style writer -- )
|
|||
nip >r dup string? [ ch>string ] unless r> blocking-write ;
|
||||
|
||||
M: port stream-close ( stream -- )
|
||||
dup stream-flush delegate [ buffer-free ] when* ;
|
||||
dup stream-flush
|
||||
dup port-handle close
|
||||
delegate [ buffer-free ] when* ;
|
||||
|
||||
! Make a duplex stream for reading/writing a pair of fds
|
||||
|
||||
|
|
Loading…
Reference in New Issue