io.unix.files: New version of touch-file

2008-05-09 16:24:58 -05:00 · 2008-05-09 16:24:58 -05:00 · e0ddb3d0eb
parent 2b7bd1a8e1
commit e0ddb3d0eb
1 changed files with 4 additions and 3 deletions
--- a/extra/io/unix/files/files.factor
+++ b/extra/io/unix/files/files.factor
@ -45,9 +45,10 @@ M: unix (file-appender) ( path -- stream )

 M: unix touch-file ( path -- )
    normalize-path
-    touch-mode file-mode open
-    dup 0 < [ err_no EEXIST = [ err_no io-error ] unless ] when
-    close ;
+    dup exists?
+        [ f utime ]
+        [ touch-mode file-mode open close ]
+    if ;

 M: unix move-file ( from to -- )
    [ normalize-path ] bi@ rename io-error ;