change path->main-collects-relative, and change output directory of start document

svn: r8301

original commit: 05434ec54da3cd9362493c024d73de5ec3f516a8
This commit is contained in:
Matthew Flatt 2008-01-11 19:54:38 +00:00
parent 18ecdda414
commit 61121abe07

View File

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