03/03: gnu: racket-vm-cs: Avoid duplicate work.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit ac09fcb955e9358c330d728693759ca1a2e20542
Author: Philip McGrath <philip@philipmcgrath.com>
AuthorDate: Thu Nov 17 19:45:32 2022 -0500

    gnu: racket-vm-cs: Avoid duplicate work.
    
    Only configure with '--enable-racket' for cross-compilation: otherwise,
    it effectively overrides '--enable-scheme' and bootstraps Chez Scheme
    again. This change saves a couple minutes of build time. See upstream
    discussion at <https://github.com/racket/racket/issues/4492>.
    
    * gnu/packages/racket.scm (racket-vm-cs)[native-inputs]: Only supply a
    Racket VM when cross-compiling.
    
    Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
---
 gnu/packages/racket.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/racket.scm b/gnu/packages/racket.scm
index 20d293e998..2cda2b6b9c 100644
--- a/gnu/packages/racket.scm
+++ b/gnu/packages/racket.scm
@@ -439,14 +439,12 @@ collector, 3M (``Moving Memory Manager'').")
      (let ((native-inputs (package-native-inputs racket-vm-cgc)))
        (modify-inputs (if (%current-target-system)
                           (modify-inputs native-inputs
+                            (prepend this-package)
                             (delete "racket-vm-cgc"))
                           native-inputs)
          (delete "libtool")
          (prepend chez-scheme-for-racket
-                  chez-nanopass-bootstrap
-                  (if (%current-target-system)
-                      racket-vm-cs
-                      racket-vm-bc)))))
+                  chez-nanopass-bootstrap))))
     (arguments
      (substitute-keyword-arguments (package-arguments racket-vm-cgc)
        ((#:phases those-phases #~%standard-phases)