From c64cb2c886676a4f7609d37b2afbfedce7f3ca9e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 19 May 2013 10:12:38 -0700
Subject: [PATCH] io.pipes: If dispose on in>> throws, then out>> leaks.

---
 basis/io/pipes/pipes.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/basis/io/pipes/pipes.factor b/basis/io/pipes/pipes.factor
index 62499f5d4f..f10ccd1e64 100644
--- 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 )