From 053be470e7c5454cdf48e934f3254d2d916bbbc5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 30 Jul 2022 07:06:55 -0600 Subject: [PATCH] CS makefiles: fix Unix-style install for cross compilation Closes #4377 --- racket/src/cs/c/build.zuo | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/racket/src/cs/c/build.zuo b/racket/src/cs/c/build.zuo index 7fe59431140..625621ca6e2 100644 --- a/racket/src/cs/c/build.zuo +++ b/racket/src/cs/c/build.zuo @@ -1023,10 +1023,9 @@ (define (setup) (call-with-dest-racket (lambda (bindir dest-racket) - (define copytree-racket (and cross? (config-bootstrap-racket))) + (define copytree-racket (and cross? (hash-ref (config-bootstrap-racket) 'racket))) (maybe-copytree config dest-racket copytree-racket at-dir) - (run-raco-setup config dest-racket - (and cross? (hash-ref (config-bootstrap-racket) 'racket)) + (run-raco-setup config dest-racket copytree-racket ;; this can be redundant if it's also supplied via `SETUP_MACHINE_FLAGS`, ;; but redundant should be ok: (list "-MCR" (~a (at-dir "compiled") ":")