raco setup: fix bootstrap phase to recognize indirect dependencies

Recent changes introduced an indirect dependency in the core of
`raco setup` --- possibly the recent addition to `racket/place`.
This commit is contained in:
Matthew Flatt 2015-07-25 16:24:43 -06:00
parent 9593b4c806
commit 20728278bf

View File

@ -147,9 +147,14 @@
(bytes->path (regexp-replace #"[.]zo$" (path->bytes path) #".dep"))
read)])
(for-each (lambda (dep)
(unless (and (pair? dep)
(eq? (car dep) 'ext))
(dynamic-require (main-collects-relative->path dep) #f)))
(let ([dep
(if (and (pair? dep)
(eq? (car dep) 'indirect))
(cdr dep)
dep)])
(unless (and (pair? dep)
(eq? (car dep) 'ext))
(dynamic-require (main-collects-relative->path dep) #f))))
(cddr deps))))
;; Not a .zo! Don't use .zo files at all...
(escape (lambda ()