From 2f7e8c03524ed369c60ab2003e09cb9de31c6744 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 17 Jul 2012 08:39:31 -0700
Subject: [PATCH] io.directories: fix mistaken refactor.

---
 basis/io/directories/directories.factor         | 4 ++--
 basis/io/directories/hierarchy/hierarchy.factor | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/io/directories/directories.factor b/basis/io/directories/directories.factor
index 337a3d2840..084facc21b 100644
--- a/basis/io/directories/directories.factor
+++ b/basis/io/directories/directories.factor
@@ -65,7 +65,7 @@ HOOK: move-file io-backend ( from to -- )
     to-directory move-file ;
 
 : move-files-into ( files to -- )
-    to-directory '[ _ move-file ] each ;
+    '[ _ move-file-into ] each ;
 
 ! Copying files
 HOOK: copy-file io-backend ( from to -- )
@@ -82,7 +82,7 @@ M: object copy-file
     to-directory copy-file ;
 
 : copy-files-into ( files to -- )
-    to-directory '[ _ copy-file ] each ;
+    '[ _ copy-file-into ] each ;
 
 {
     { [ os unix? ] [ "io.directories.unix" require ] }
diff --git a/basis/io/directories/hierarchy/hierarchy.factor b/basis/io/directories/hierarchy/hierarchy.factor
index 96b2c435b7..b39587af2e 100644
--- a/basis/io/directories/hierarchy/hierarchy.factor
+++ b/basis/io/directories/hierarchy/hierarchy.factor
@@ -44,4 +44,4 @@ DEFER: copy-trees-into
     to-directory copy-tree ;
 
 : copy-trees-into ( files to -- )
-    to-directory '[ _ copy-tree ] each ;
+    '[ _ copy-tree-into ] each ;