diff mbox series

[bug#67283] guix: guile: Add #:substitutable? argument to build system.

Message ID 5b4d8b66adf880e9b7087324f34982dc5360f4a8.1700413827.git.skyvine@protonmail.com
State New
Headers show
Series [bug#67283] guix: guile: Add #:substitutable? argument to build system. | expand

Commit Message

Skyler Ferris Nov. 19, 2023, 5:10 p.m. UTC 
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
---
 guix/build-system/guile.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)


base-commit: cd82ddd15c28b4f4690255b11a1ce6dcac7c166d
prerequisite-patch-id: d25067ea4ec0e23744f2dca853c7e9f7b9ab4a9d

Comments

Ludovic Courtès Nov. 25, 2023, 3:26 p.m. UTC | #1 
Skyler Ferris <skyvine@protonmail.com> skribis:

> 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

Tweaked the commit log and applied it, thanks!
diff mbox series

Patch

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 @@  (define* (guile-build name inputs
                       (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 @@  (define* (guile-build name inputs
                       #:system system
                       #:target #f
                       #:graft? #f
+                      #:substitutable? substitutable?
                       #:guile-for-build guile)))
 
 (define* (guile-cross-build name
@@ -133,7 +135,8 @@  (define* (guile-cross-build name
                             (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 @@  (define* (guile-cross-build name
                       #:system system
                       #:target target
                       #:graft? #f
+                      #:substitutable? substitutable?
                       #:guile-for-build guile)))
 
 (define guile-build-system