change path->main-collects-relative, and change output directory of start document
svn: r8301 original commit: 05434ec54da3cd9362493c024d73de5ec3f516a8
This commit is contained in:
parent
18ecdda414
commit
61121abe07
|
@ -90,7 +90,7 @@
|
|||
(lambda (op)
|
||||
(write (cons (version)
|
||||
(append (map path->main-collects-relative deps)
|
||||
(map (lambda (x) (path->main-collects-relative (cons 'ext x)))
|
||||
(map (lambda (x) (cons 'ext (path->main-collects-relative x)))
|
||||
external-deps)))
|
||||
op)
|
||||
(newline op)))))
|
||||
|
@ -264,7 +264,12 @@
|
|||
(when (> t path-zo-time)
|
||||
(trace-printf "newer: ~a (~a > ~a)..." d t path-zo-time))
|
||||
(> t path-zo-time)))
|
||||
(map main-collects-relative->path (cdr deps)))
|
||||
(map (lambda (p)
|
||||
(if (and (pair? p)
|
||||
(eq? 'ext (car p)))
|
||||
(cons 'ext (main-collects-relative->path (cdr p)))
|
||||
(main-collects-relative->path p)))
|
||||
(cdr deps)))
|
||||
(compile-zo mode path))))))
|
||||
(let ((stamp (get-compiled-time mode path #t)))
|
||||
(hash-table-put! up-to-date path stamp)
|
||||
|
|
Loading…
Reference in New Issue
Block a user