futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
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>
This commit is contained in:
Skyler Ferris 2023-11-19 09:10:36 -08:00 committed by Ludovic Courtès
parent e3933f8b4d
commit c43077076f
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/build-system/guile.scm
View File

@ -88,7 +88,8 @@
(compile-flags %compile-flags) (compile-flags %compile-flags)
(imported-modules %guile-build-system-modules) (imported-modules %guile-build-system-modules)
(modules '((guix build guile-build-system) (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." "Build SOURCE using Guile taken from the native inputs, and with INPUTS."
(define builder (define builder
(with-imported-modules imported-modules (with-imported-modules imported-modules
@ -114,6 +115,7 @@
#:system system #:system system
#:target #f #:target #f
#:graft? #f #:graft? #f
#:substitutable? substitutable?
#:guile-for-build guile))) #:guile-for-build guile)))
(define* (guile-cross-build name (define* (guile-cross-build name
@ -133,7 +135,8 @@
(compile-flags %compile-flags) (compile-flags %compile-flags)
(imported-modules %guile-build-system-modules) (imported-modules %guile-build-system-modules)
(modules '((guix build guile-build-system) (modules '((guix build guile-build-system)
(guix build utils)))) (guix build utils)))
(substitutable? #t))
(define builder (define builder
(with-imported-modules imported-modules (with-imported-modules imported-modules
#~(begin #~(begin
@ -173,6 +176,7 @@
#:system system #:system system
#:target target #:target target
#:graft? #f #:graft? #f
#:substitutable? substitutable?
#:guile-for-build guile))) #:guile-for-build guile)))
(define guile-build-system (define guile-build-system