.
original commit: 2ff7eca9c8e6ab381b7f7be12cc10c6149961494
This commit is contained in:
parent
9c8d27517f
commit
f54f8d7435
|
@ -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))])
|
||||
|
|
Loading…
Reference in New Issue
Block a user