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)
;; 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)