steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.directories: fix mistaken refactor.

db4
John Benediktsson 2012-07-17 08:39:31 -07:00
parent c507293d41
commit 2f7e8c0352
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/directories/directories.factor
View File

@ -65,7 +65,7 @@ HOOK: move-file io-backend ( from to -- )
to-directory move-file ; to-directory move-file ;
: move-files-into ( files to -- ) : move-files-into ( files to -- )
to-directory '[ _ move-file ] each ; '[ _ move-file-into ] each ;
! Copying files ! Copying files
HOOK: copy-file io-backend ( from to -- ) HOOK: copy-file io-backend ( from to -- )
@ -82,7 +82,7 @@ M: object copy-file
to-directory copy-file ; to-directory copy-file ;
: copy-files-into ( files to -- ) : copy-files-into ( files to -- )
to-directory '[ _ copy-file ] each ; '[ _ copy-file-into ] each ;
{ {
{ [ os unix? ] [ "io.directories.unix" require ] } { [ os unix? ] [ "io.directories.unix" require ] }

2
basis/io/directories/hierarchy/hierarchy.factor
View File

@ -44,4 +44,4 @@ DEFER: copy-trees-into
to-directory copy-tree ; to-directory copy-tree ;
: copy-trees-into ( files to -- ) : copy-trees-into ( files to -- )
to-directory '[ _ copy-tree ] each ; '[ _ copy-tree-into ] each ;