From 2fe934ba9d5accdb611e1753de20111a278dd096 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 15 Feb 2009 20:36:04 -0600
Subject: [PATCH] Remove some code duplication in io.directories.unix

---
 basis/io/directories/unix/unix.factor | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/basis/io/directories/unix/unix.factor b/basis/io/directories/unix/unix.factor
index 1ef80b3438..89e091f919 100644
--- a/basis/io/directories/unix/unix.factor
+++ b/basis/io/directories/unix/unix.factor
@@ -27,16 +27,8 @@ M: unix make-directory ( path -- )
 M: unix delete-directory ( path -- )
     normalize-path rmdir io-error ;
 
-: (copy-file) ( from to -- )
-    dup parent-directory make-directories
-    binary <file-writer> [
-        swap binary <file-reader> [
-            swap stream-copy
-        ] with-disposal
-    ] with-disposal ;
-
 M: unix copy-file ( from to -- )
-    [ normalize-path ] bi@ (copy-file) ;
+    [ normalize-path ] bi@ call-next-method ;
 
 : with-unix-directory ( path quot -- )
     [ opendir dup [ (io-error) ] unless ] dip