suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

comment

Browse Source 
svn: r16326
This commit is contained in:
Eli Barzilay 2009-10-15 15:59:37 +00:00
parent e1d2fdb3d6
commit e64bfff4f3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/handin-server/main.ss
View File

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