From a832b4d445d5ab0093208ebb98247b6aa0abcc31 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 16 Feb 2008 15:24:41 -0600
Subject: [PATCH] Fix tpo

---
 core/io/files/files.factor | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 4b19dd6943..1824a47867 100755
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -143,12 +143,13 @@ M: pathname <=> [ pathname-string ] compare ;
 : file-lines ( path -- seq ) <file-reader> lines ;
 
 : file-contents ( path -- str )
-    dup <file-reader> swap file-length <sbuf> [ stream-copy ] keep >string ;
-
-: with-file-writer ( path quot -- )
-    >r <file-reader> r> with-stream ; inline
+    dup <file-reader> swap file-length <sbuf>
+    [ stream-copy ] keep >string ;
 
 : with-file-reader ( path quot -- )
+    >r <file-reader> r> with-stream ; inline
+
+: with-file-writer ( path quot -- )
     >r <file-writer> r> with-stream ; inline
 
 : with-file-appender ( path quot -- )