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