io.pipes: If dispose on in>> throws, then out>> leaks.

2013-05-19 10:12:38 -07:00 · 2013-05-19 10:12:38 -07:00 · c64cb2c886
parent 917ae3e410
commit c64cb2c886
1 changed files with 4 additions and 1 deletions
--- a/basis/io/pipes/pipes.factor
+++ b/basis/io/pipes/pipes.factor
@ -9,7 +9,10 @@ IN: io.pipes
 TUPLE: pipe in out ;

 M: pipe dispose ( pipe -- )
-    [ in>> dispose ] [ out>> dispose ] bi ;
+    [
+        [ in>> &dispose drop ]
+        [ out>> &dispose drop ] bi
+    ] with-destructors ;

 HOOK: (pipe) io-backend ( -- pipe )