port stream-close didn't close the fd

cvs
Slava Pestov 2005-06-23 20:00:26 +00:00
parent 21fba39b80
commit 6ab56af2f3
1 changed files with 3 additions and 1 deletions

View File

@ -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