suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix cm to work with relative-path dependencies

Browse Source 
svn: r11331
This commit is contained in:
Matthew Flatt 2008-08-19 15:58:43 +00:00
parent 9720e0151e
commit bf17f5a134
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/compiler/cm.ss
View File

@ -215,9 +215,12 @@
;; (cons 'ext rel-path) => a non-module file (check date) ;; (cons 'ext rel-path) => a non-module file (check date)
;; rel-path => a module file name (check transitive dates) ;; rel-path => a module file name (check transitive dates)
(define ext? (and (pair? p) (eq? 'ext (car p)))) (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 (define t
(cond [(not (path? d)) #f] ;; (can this happen?) (cond [(not (path? d)) #f] ;; shouldn't happen
[ext? (try-file-time d)] [ext? (try-file-time d)]
[else (compile-root mode d up-to-date [else (compile-root mode d up-to-date
read-src-syntax)])) read-src-syntax)]))