From 80e580f91d935adf5b1412b02e9d605d24dc25c2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 16 Feb 2008 02:19:19 -0600
Subject: [PATCH] Fix resource leaks with <duplex-stream>

---
 .../reverse-complement/reverse-complement.factor       | 10 +++++++---
 extra/raptor/raptor.factor                             |  9 +++++++--
 2 files changed, 14 insertions(+), 5 deletions(-)
 mode change 100644 => 100755 extra/benchmark/reverse-complement/reverse-complement.factor
 mode change 100644 => 100755 extra/raptor/raptor.factor

diff --git a/extra/benchmark/reverse-complement/reverse-complement.factor b/extra/benchmark/reverse-complement/reverse-complement.factor
old mode 100644
new mode 100755
index cc20b4b349..d509803896
--- a/extra/benchmark/reverse-complement/reverse-complement.factor
+++ b/extra/benchmark/reverse-complement/reverse-complement.factor
@@ -32,9 +32,13 @@ HINTS: do-line vector string ;
     readln [ do-line (reverse-complement) ] [ show-seq ] if* ;
 
 : reverse-complement ( infile outfile -- )
-    <file-writer> >r <file-reader> r> <duplex-stream> [
-        500000 <vector> (reverse-complement)
-    ] with-stream ;
+    <file-writer> [
+        swap <file-reader> [
+            swap <duplex-stream> [
+                500000 <vector> (reverse-complement)
+            ] with-stream
+        ] with-disposal
+    ] with-disposal ;
 
 : reverse-complement-in
     "extra/benchmark/reverse-complement/reverse-complement-in.txt"
diff --git a/extra/raptor/raptor.factor b/extra/raptor/raptor.factor
old mode 100644
new mode 100755
index d776739d89..1ada2a30c6
--- a/extra/raptor/raptor.factor
+++ b/extra/raptor/raptor.factor
@@ -45,8 +45,13 @@ USING: io io.files io.streams.lines io.streams.plain io.streams.duplex
        listener ;
 
 : tty-listener ( tty -- )
-  [ <file-reader> ] [ <file-writer> ] bi <duplex-stream>
-  [ listener ] with-stream ;
+  dup <file-reader> [
+    swap <file-writer> [
+      <duplex-stream> [
+        listener
+      ] with-stream
+    ] with-disposal
+  ] with-disposal ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!