From f54f8d7435526b517fcb4020354daaff1c4f22c7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 26 Jul 2003 20:23:05 +0000 Subject: [PATCH] . original commit: 2ff7eca9c8e6ab381b7f7be12cc10c6149961494 --- collects/mzlib/cm.ss | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/collects/mzlib/cm.ss b/collects/mzlib/cm.ss index 31c75d6..df31851 100644 --- a/collects/mzlib/cm.ss +++ b/collects/mzlib/cm.ss @@ -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))])