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:
parent
9593b4c806
commit
20728278bf
|
@ -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 ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user