original commit: 2ff7eca9c8e6ab381b7f7be12cc10c6149961494
This commit is contained in:
Matthew Flatt 2003-07-26 20:23:05 +00:00
parent 9c8d27517f
commit f54f8d7435

View File

@ -131,7 +131,6 @@
(define (get-compiled-time path w/fail?)
(let-values ([(dir name) (get-compilation-dir+name path)])
(first-date
(if w/fail? +inf.0 -inf.0)
(lambda () (build-path dir "native" (system-library-subpath) (append-object-suffix "_loader")))
(lambda () (build-path dir "native" (system-library-subpath) (append-object-suffix name)))
(lambda () (build-path dir (string-append name ".zo")))
@ -139,14 +138,14 @@
(define first-date
(case-lambda
[(def) def]
[(def f . l)
[() -inf.0]
[(f . l)
(if f
(with-handlers ([exn:i/o:filesystem?
(lambda (ex)
(apply first-date def l))])
(apply first-date l))])
(file-or-directory-modify-seconds (f)))
(apply first-date def l))]))
(apply first-date l))]))
(define (compile-root path up-to-date)
(let ([path (simplify-path (expand-path path))])