Skip to content

Commit 3104f29

Browse files
committed
distro-build: pull boot/pb to include in source
When cross-compilation mode with a shared host build is used to create a source snapshot, the `pb` repo needs to be fetched even though it isn't needed specifically to create the installation.
1 parent c6ee64d commit 3104f29

File tree

1 file changed

+5
-3
lines changed

1 file changed

+5
-3
lines changed

main.zuo

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -103,7 +103,7 @@
103103
(list "-MCR" (~a (path->complete-path (at-source "build/zo")) ":")))
104104

105105
;; ------------------------------------------------------------
106-
;; pb setup
106+
;; check consistent use of checkout
107107

108108
(define (check-mode mode)
109109
(define mode-file (at-source "racket/src/build/checkout-mode"))
@@ -327,8 +327,10 @@
327327

328328
(define (maybe-fetch vm)
329329
(when (eq? vm 'cs)
330-
(when (andmap (lambda (key) (equal? (lookup key) ""))
331-
'(RACKET BOOTFILE_RACKET PLAIN_RACKET SCHEME SCHEME_DIR CS_HOST_WORKAREA_PREFIX))
330+
(when (or (andmap (lambda (key) (equal? (lookup key) ""))
331+
'(RACKET BOOTFILE_RACKET PLAIN_RACKET SCHEME SCHEME_DIR CS_HOST_WORKAREA_PREFIX))
332+
;; include `racket/src/ChezScheme/boot/pb` in source:
333+
(not (equal? (lookup 'SOURCE_MODE) "")))
332334
(pb-manage 'fetch))))
333335

334336
(define (base token vm [options (hash)])

0 commit comments

Comments
 (0)