Remove some code duplication in io.directories.unix

diff --git a/basis/io/directories/unix/unix.factor b/basis/io/directories/unix/unix.factor
index 1ef80b3438c481fa7a77ea56c1e01b4e366a2816..89e091f91914b622c7387899b4d5e4838628f2a0 100644 (file)
--- 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