24/25: gnu: racket-vm-cs: Build with "--enable-scheme".

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit 992ed3b4ce20335ca61df0d29bfd02495dee87e6
Author: Philip McGrath <philip@philipmcgrath.com>
AuthorDate: Sun Feb 27 16:29:20 2022 -0500

    gnu: racket-vm-cs: Build with "--enable-scheme".
    
    * gnu/packages/racket.scm (racket-vm-cs)[native-inputs]: Replace
    'chez-scheme-for-racket-bootstrap-bootfiles' with 'chez-scheme-for-racket'.
    [arguments]<#:phases>: Delete 'unpack-bootfiles'.
    <#:configure-flags>: Add "--enable-scheme".
    
    Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
---
 gnu/packages/racket.scm | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/racket.scm b/gnu/packages/racket.scm
index d754e853a9..471a11dd48 100644
--- a/gnu/packages/racket.scm
+++ b/gnu/packages/racket.scm
@@ -369,7 +369,7 @@ collector, 3M (``Moving Memory Manager'').")
     (native-inputs
      (modify-inputs (package-native-inputs racket-vm-cgc)
        (delete "libtool")
-       (prepend chez-scheme-for-racket-bootstrap-bootfiles
+       (prepend chez-scheme-for-racket
                 chez-nanopass-bootstrap
                 racket-vm-bc)))
     (arguments
@@ -379,18 +379,15 @@ collector, 3M (``Moving Memory Manager'').")
             (add-after 'unpack 'unpack-nanopass+stex
               (lambda args
                 (with-directory-excursion "racket/src/ChezScheme"
-                  #$unpack-nanopass+stex)))
-            (add-after 'unpack-nanopass+stex 'unpack-bootfiles
-              (lambda* (#:key native-inputs inputs #:allow-other-keys)
-                (with-directory-excursion "racket/src/ChezScheme"
-                  (copy-recursively
-                   (search-input-directory (or native-inputs inputs)
-                                           "lib/chez-scheme-bootfiles")
-                   "boot"))))))
+                  #$unpack-nanopass+stex)))))
        ((#:configure-flags _ '())
         #~(cons* "--enable-csonly"
                  "--enable-libz"
                  "--enable-lz4"
+                 (string-append "--enable-scheme="
+                                #$(this-package-native-input
+                                   "chez-scheme-for-racket")
+                                "/bin/scheme")
                  #$(racket-vm-common-configure-flags)))))
     (synopsis "Racket CS implementation")
     (description "The Racket CS implementation, which uses ``Chez Scheme'' as