io.directories.unix: normalize-path doesn't need to be called
It is already called by the words copy-file delegates to.locals-and-roots
parent
ea4333e490
commit
6a76bf9084
|
@ -138,6 +138,12 @@ io.launcher io.pathnames kernel sequences tools.test ;
|
|||
"copy-destination/copy-tree-test/a/b/c/d" ascii file-contents
|
||||
] unit-test
|
||||
|
||||
! copy-file
|
||||
{ } [
|
||||
"resource:LICENSE.txt" "test" copy-file
|
||||
] unit-test
|
||||
|
||||
! copy-file-into
|
||||
{ } [
|
||||
"copy-destination/copy-tree-test/a/b/c/d" "." copy-file-into
|
||||
] unit-test
|
||||
|
|
|
@ -29,7 +29,6 @@ M: unix delete-directory ( path -- )
|
|||
normalize-path [ rmdir ] unix-system-call drop ;
|
||||
|
||||
M: unix copy-file ( from to -- )
|
||||
[ normalize-path ] bi@
|
||||
[ call-next-method ]
|
||||
[ [ file-permissions ] dip swap set-file-permissions ] 2bi ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue