From f0e342414b4020c0264fd94d185f9dfc1f66947d Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 19 Aug 2008 17:12:56 +0000 Subject: [PATCH] the result type of main-collects-relative->path is now a path svn: r11337 --- collects/compiler/cm.ss | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/collects/compiler/cm.ss b/collects/compiler/cm.ss index fd40e5d023..3381b8b3cc 100644 --- a/collects/compiler/cm.ss +++ b/collects/compiler/cm.ss @@ -215,15 +215,11 @@ ;; (cons 'ext rel-path) => a non-module file (check date) ;; rel-path => a module file name (check transitive dates) (define ext? (and (pair? p) (eq? 'ext (car p)))) - (define d (let ([p (main-collects-relative->path (if ext? (cdr p) p))]) - (if (bytes? p) - (bytes->path p) - p))) + (define d (main-collects-relative->path (if ext? (cdr p) p))) (define t - (cond [(not (path? d)) #f] ;; shouldn't happen - [ext? (try-file-time d)] - [else (compile-root mode d up-to-date - read-src-syntax)])) + (if ext? + (try-file-time d) + (compile-root mode d up-to-date read-src-syntax))) (and t (> t path-zo-time) (begin (trace-printf "newer: ~a (~a > ~a)..." d t path-zo-time)