From bf17f5a134ea6b67958e4f77ac32e48f25807a57 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 19 Aug 2008 15:58:43 +0000 Subject: [PATCH] fix cm to work with relative-path dependencies svn: r11331 --- collects/compiler/cm.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/compiler/cm.ss b/collects/compiler/cm.ss index 763f1f963c..fd40e5d023 100644 --- a/collects/compiler/cm.ss +++ b/collects/compiler/cm.ss @@ -215,9 +215,12 @@ ;; (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 (main-collects-relative->path (if ext? (cdr p) p))) + (define d (let ([p (main-collects-relative->path (if ext? (cdr p) p))]) + (if (bytes? p) + (bytes->path p) + p))) (define t - (cond [(not (path? d)) #f] ;; (can this happen?) + (cond [(not (path? d)) #f] ;; shouldn't happen [ext? (try-file-time d)] [else (compile-root mode d up-to-date read-src-syntax)]))