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

the result type of main-collects-relative->path is now a path

Browse Source 
svn: r11337
This commit is contained in:
Eli Barzilay 2008-08-19 17:12:56 +00:00
parent fb56a59571
commit f0e342414b
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/compiler/cm.ss
View File

@ -215,15 +215,11 @@
;; (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 (let ([p (main-collects-relative->path (if ext? (cdr p) p))]) (define d (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] ;; shouldn't happen (if ext?
[ext? (try-file-time d)] (try-file-time d)
[else (compile-root mode d up-to-date (compile-root mode d up-to-date read-src-syntax)))
read-src-syntax)]))
(and t (> t path-zo-time) (and t (> t path-zo-time)
(begin (trace-printf "newer: ~a (~a > ~a)..." (begin (trace-printf "newer: ~a (~a > ~a)..."
d t path-zo-time) d t path-zo-time)