Split stdio up into input-stream/output-stream, pipes work in progress

[factor.git] / extra / benchmark / reverse-complement / reverse-complement.factor

diff --git a/extra/benchmark/reverse-complement/reverse-complement.factor b/extra/benchmark/reverse-complement/reverse-complement.factor
index d83b72018799976f11277f7c3726fbcbaad47d86..5fdaf49d8f4bad3132d9d25fece63910a865c497 100755 (executable)
--- a/extra/benchmark/reverse-complement/reverse-complement.factor
+++ b/extra/benchmark/reverse-complement/reverse-complement.factor
@@ -32,13 +32,11 @@ HINTS: do-line vector string ;
     readln [ do-line (reverse-complement) ] [ show-seq ] if* ;
 
 : reverse-complement ( infile outfile -- )
-    ascii <file-writer> [
-        swap ascii <file-reader> [
-            swap <duplex-stream> [
-                500000 <vector> (reverse-complement)
-            ] with-stream
-        ] with-disposal
-    ] with-disposal ;
+    ascii [
+        ascii [
+            500000 <vector> (reverse-complement)
+        ] with-file-reader
+    ] with-file-writer ;
 
 : reverse-complement-in
     "reverse-complement-in.txt" temp-file ;