io.files.info.unix: When setting access or modified time alone, don't set the other time to 1970.

See #490.
db4
Doug Coleman 2012-06-01 16:02:07 -07:00
parent 1b1940b217
commit 3447136e2a
1 changed files with 2 additions and 2 deletions

View File

@ -202,10 +202,10 @@ PRIVATE>
timestamps>byte-array [ utimes ] unix-system-call drop ;
: set-file-access-time ( path timestamp -- )
f 2array set-file-times ;
over file-info modified>> 2array set-file-times ;
: set-file-modified-time ( path timestamp -- )
f swap 2array set-file-times ;
over file-info accessed>> swap 2array set-file-times ;
: set-file-ids ( path uid gid -- )
[ normalize-path ] 2dip [ -1 or ] bi@