From 6ab56af2f3ce314b1be7c9554add4d873a0ed648 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 23 Jun 2005 20:00:26 +0000 Subject: [PATCH] port stream-close didn't close the fd --- library/unix/io.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/library/unix/io.factor b/library/unix/io.factor index a7d0f32a14..5ba5735f65 100644 --- a/library/unix/io.factor +++ b/library/unix/io.factor @@ -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