diff options
author | Matthew Flatt <mflatt@racket-lang.org> | 2023-11-15 10:56:31 -0700 |
---|---|---|
committer | John Clements <clements@racket-lang.org> | 2023-11-19 23:31:42 +0000 |
commit | 613a2c9ff42cd1ee6b6ada582dff4beab82ca376 (patch) | |
tree | b47f000ecc9351829b988fc8d9fc5833c712bae0 | |
parent | b367e3ef6cca7d0e14aa54fa2c714f96b8c82c48 (diff) |
repair install of a builtpkgs build
(cherry picked from commit 7ed81eba162ba6af41e7522d54231df09b7ff186)
-rw-r--r-- | racket/src/bc/build.zuo | 3 | ||||
-rw-r--r-- | racket/src/cs/c/build.zuo | 3 | ||||
-rw-r--r-- | racket/src/lib.zuo | 4 |
3 files changed, 8 insertions, 2 deletions
diff --git a/racket/src/bc/build.zuo b/racket/src/bc/build.zuo index 5af471ba8c..98b6ea34f3 100644 --- a/racket/src/bc/build.zuo +++ b/racket/src/bc/build.zuo @@ -637,7 +637,8 @@ (define (setup-prepare-to-here?) (and (equal? (lookup 'MAKE_COPYTREE) "copytree") - (not cross?))) + (not cross?) + (not (in-builtpkgs-distro?)))) (define the-targets (append diff --git a/racket/src/cs/c/build.zuo b/racket/src/cs/c/build.zuo index 451e2c8c2a..c47649f206 100644 --- a/racket/src/cs/c/build.zuo +++ b/racket/src/cs/c/build.zuo @@ -373,7 +373,8 @@ (define (setup-prepare-to-here?) (and (equal? (lookup 'MAKE_COPYTREE) "copytree") - (not cross?))) + (not cross?) + (not (in-builtpkgs-distro?)))) (define the-targets (make-targets diff --git a/racket/src/lib.zuo b/racket/src/lib.zuo index 80c5c88c94..64c41b6c7a 100644 --- a/racket/src/lib.zuo +++ b/racket/src/lib.zuo @@ -42,6 +42,7 @@ strip-lib-debug run-raco-setup raco-setup-prepare-to-here + in-builtpkgs-distro? install-license-files maybe-copytree @@ -494,6 +495,9 @@ built-racket #f '())) +(define (in-builtpkgs-distro?) + (file-exists? (at-source "../collects/racket/compiled/base_rkt.zo"))) + (define (install-license-files sharepltdir) (mkdir-p sharepltdir) (for-each (lambda (path) |