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

.

Browse Source 
original commit: 1eb57fd9f92cffe663e44a0f0ee45e30602b955f
This commit is contained in:
Matthew Flatt 2003-11-27 15:45:19 +00:00
parent a773199a53
commit 8f2c0e9d2f
1 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
collects/mzlib/cm.ss
View File

@ -168,7 +168,9 @@
((not path-time) path-zo-time)
(else
(cond
((> path-time path-zo-time) (compile-zo path))
((> path-time path-zo-time)
((trace) (format "~anewer src..." (indent)))
(compile-zo path))
(else
(let ((deps (with-handlers ((exn:i/o:filesystem? (lambda (ex) (list (version)))))
(call-with-input-file (string-append (get-compilation-path path) ".dep")
@ -176,19 +178,22 @@
(cond
((or (not (pair? deps))
(not (equal? (version) (car deps))))
((trace) (format "~anewer version..." (indent)))
(compile-zo path))
((> (apply my-max (map (lambda (d)
;; str => str is a module file name (check transitive dates)
;; (cons 'ext str) => str is an non-module file (check date)
(cond
[(string? d) (compile-root d up-to-date)]
[(and (pair? d) (eq? (car d) 'ext))
(with-handlers ((exn:i/o:filesystem?
(lambda (ex) +inf.0)))
(file-or-directory-modify-seconds (cdr d)))]
[else -inf.0]))
(cdr deps)))
path-zo-time)
((ormap (lambda (d)
;; str => str is a module file name (check transitive dates)
;; (cons 'ext str) => str is an non-module file (check date)
(let ([t (cond
[(string? d) (compile-root d up-to-date)]
[(and (pair? d) (eq? (car d) 'ext))
(with-handlers ((exn:i/o:filesystem?
(lambda (ex) +inf.0)))
(file-or-directory-modify-seconds (cdr d)))]
[else -inf.0])])
(when (> t path-zo-time)
((trace) (format "~anewer: ~a (~a > ~a)..." (indent) d t path-zo-time)))
(> t path-zo-time)))
(cdr deps))
(compile-zo path))))))
(let ((stamp (get-compiled-time path #t)))
(hash-table-put! up-to-date path stamp)