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

bad ext path could confuse cm.ss

Browse Source 
svn: r2926
This commit is contained in:
Matthew Flatt 2006-05-12 22:04:54 +00:00
parent 9bd72dab8f
commit e54a49f4ce
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mzlib/cm.ss
View File

@ -245,11 +245,16 @@
(let ([t (cond (let ([t (cond
[(bytes? d) (compile-root mode (bytes->path d) up-to-date)] [(bytes? d) (compile-root mode (bytes->path d) up-to-date)]
[(path? d) (compile-root mode d up-to-date)] [(path? d) (compile-root mode d up-to-date)]
[(and (pair? d) (eq? (car d) 'ext)) [(and (pair? d)
(eq? (car d) 'ext)
(or (bytes? (cdr d))
(path? (cdr d))))
(with-handlers ((exn:fail:filesystem? (with-handlers ((exn:fail:filesystem?
(lambda (ex) +inf.0))) (lambda (ex) +inf.0)))
(file-or-directory-modify-seconds (cdr d)))] (file-or-directory-modify-seconds (if (bytes? (cdr d))
[else -inf.0])]) (bytes->path (cdr d))
(cdr d))))]
[else +inf.0])])
(when (> t path-zo-time) (when (> t path-zo-time)
(trace-printf "newer: ~a (~a > ~a)..." d t path-zo-time)) (trace-printf "newer: ~a (~a > ~a)..." d t path-zo-time))
(> t path-zo-time))) (> t path-zo-time)))