From 1882e3de3e019fcc452e7cb9477b1b7fc8ff6d9b Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 26 Oct 2011 11:47:41 -0700
Subject: [PATCH] Use dip instead of swap swap for making file streams

---
 core/io/files/files.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 86d02acdd1..e81a6fb574 100644
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -12,13 +12,13 @@ HOOK: (file-writer) io-backend ( path -- stream )
 HOOK: (file-appender) io-backend ( path -- stream )
 
 : <file-reader> ( path encoding -- stream )
-    swap normalize-path (file-reader) swap <decoder> ;
+    [ normalize-path (file-reader) ] dip <decoder> ;
 
 : <file-writer> ( path encoding -- stream )
-    swap normalize-path (file-writer) swap <encoder> ;
+    [ normalize-path (file-writer) ] dip <encoder> ;
 
 : <file-appender> ( path encoding -- stream )
-    swap normalize-path (file-appender) swap <encoder> ;
+    [ normalize-path (file-appender) ] dip <encoder> ;
 
 : file-lines ( path encoding -- seq )
     <file-reader> stream-lines ;