io.unix.files: update delete-file
parent
6f2192bb7f
commit
099487d4d3
|
@ -51,8 +51,7 @@ M: unix touch-file ( path -- )
|
||||||
M: unix move-file ( from to -- )
|
M: unix move-file ( from to -- )
|
||||||
[ normalize-path ] bi@ rename io-error ;
|
[ normalize-path ] bi@ rename io-error ;
|
||||||
|
|
||||||
M: unix delete-file ( path -- )
|
M: unix delete-file ( path -- ) normalize-path unlink-file ;
|
||||||
normalize-path unlink io-error ;
|
|
||||||
|
|
||||||
M: unix make-directory ( path -- )
|
M: unix make-directory ( path -- )
|
||||||
normalize-path OCT: 777 mkdir io-error ;
|
normalize-path OCT: 777 mkdir io-error ;
|
||||||
|
|
Loading…
Reference in New Issue