09/10: build-system/guile: Add #:substitutable? argument to build system.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit c43077076f2e172ca89231affcfdf2dfaae0f351
Author: Skyler Ferris <skyvine@protonmail.com>
AuthorDate: Sun Nov 19 09:10:36 2023 -0800

    build-system/guile: Add #:substitutable? argument to build system.
    
    This is implemented the same as in gnu-build-system.
    
    * guix/build-system/guile.scm (guile-build, guile-cross-build): Add
      #:substitutable? argument
    
    Change-Id: I04babb81ff1f322833f7ff22cd7580c048b26102
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/build-system/guile.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/guix/build-system/guile.scm b/guix/build-system/guile.scm
index 1bd292e267..bd3bb1c870 100644
--- a/guix/build-system/guile.scm
+++ b/guix/build-system/guile.scm
@@ -88,7 +88,8 @@
                       (compile-flags %compile-flags)
                       (imported-modules %guile-build-system-modules)
                       (modules '((guix build guile-build-system)
-                                 (guix build utils))))
+                                 (guix build utils)))
+                      (substitutable? #t))
   "Build SOURCE using Guile taken from the native inputs, and with INPUTS."
   (define builder
     (with-imported-modules imported-modules
@@ -114,6 +115,7 @@
                       #:system system
                       #:target #f
                       #:graft? #f
+                      #:substitutable? substitutable?
                       #:guile-for-build guile)))
 
 (define* (guile-cross-build name
@@ -133,7 +135,8 @@
                             (compile-flags %compile-flags)
                             (imported-modules %guile-build-system-modules)
                             (modules '((guix build guile-build-system)
-                                       (guix build utils))))
+                                       (guix build utils)))
+                            (substitutable? #t))
   (define builder
     (with-imported-modules imported-modules
       #~(begin
@@ -173,6 +176,7 @@
                       #:system system
                       #:target target
                       #:graft? #f
+                      #:substitutable? substitutable?
                       #:guile-for-build guile)))
 
 (define guile-build-system