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
Björn Lindqvist 2016-06-15 01:25:53 +02:00
parent ea4333e490
commit 6a76bf9084
2 changed files with 6 additions and 1 deletions

View File

@ -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

View File

@ -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 ;