svn: r16326
This commit is contained in:
Eli Barzilay 2009-10-15 15:59:37 +00:00
parent e1d2fdb3d6
commit e64bfff4f3

View File

@ -94,6 +94,7 @@
(copy-directory/files dir/f f)]
[(or (<= (file-or-directory-modify-seconds f)
(file-or-directory-modify-seconds dir/f))
;; just in case, check the size too:
(and (file-exists? f) (file-exists? dir/f)
(not (= (file-size f) (file-size dir/f)))))
;; f is newer in dir than in the working directory