X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Funix%2Funix.factor;h=2d09096451db447bb591a23b054cbf03a57afda0;hp=7c61cd531fe15a2eaab522c3ba1feaeb5a5381b0;hb=1542ebe47c58f140e5929772ad71f5d2ad46ec51;hpb=0bb3228063aa360c8b3e526a1c79c87537bb14c5 diff --git a/basis/unix/unix.factor b/basis/unix/unix.factor index 7c61cd531f..2d09096451 100644 --- a/basis/unix/unix.factor +++ b/basis/unix/unix.factor @@ -1,9 +1,9 @@ ! Copyright (C) 2005, 2010 Slava Pestov. ! Copyright (C) 2008 Eduardo Cavazos. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors alien.c-types alien.syntax byte-arrays classes.struct +USING: accessors alien.c-types alien.syntax byte-arrays combinators.short-circuit combinators.smart generalizations kernel -libc locals math sequences sequences.generalizations strings system +libc math sequences sequences.generalizations strings system unix.ffi vocabs.loader ; IN: unix @@ -73,7 +73,7 @@ M: unix open-file [ open ] unix-system-call ; : touch ( filename -- ) f [ utime ] unix-system-call drop ; : change-file-times ( filename access modification -- ) - utimbuf + utimbuf new swap >>modtime swap >>actime [ utime ] unix-system-call drop ;