(address . guix-patches@gnu.org)(name . Maxim Cournoyer)(address . maxim.cournoyer@gmail.com)
20221214201256.13459-2-maxim.cournoyer@gmail.com
* gnu/packages/make-bootstrap.scm (%guile-static-3.0): New variable.
(%guile-static-stripped): Use it.
---
gnu/packages/make-bootstrap.scm | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
Toggle diff (32 lines)
diff --git a/gnu/packages/make-bootstrap.scm b/gnu/packages/make-bootstrap.scm
index 24855f6b28..a0999cb477 100644
--- a/gnu/packages/make-bootstrap.scm
+++ b/gnu/packages/make-bootstrap.scm
@@ -748,6 +748,12 @@ (define %guile-static
"guile-default-utf8.patch"
"guile-linux-syscalls.patch")))
+(define %guile-static-3.0
+ (make-guile-static guile-3.0-latest
+ '("guile-2.2-default-utf8.patch"
+ "guile-3.0-linux-syscalls.patch"
+ "guile-3.0-relocatable.patch")))
+
(define* (make-guile-static-stripped static-guile)
(package
(inherit static-guile)
@@ -796,11 +802,7 @@ (define* (make-guile-static-stripped static-guile)
(define %guile-static-stripped
;; A stripped static Guile 3.0 binary, for use in initrds
;; and during bootstrap.
- (make-guile-static-stripped
- (make-guile-static guile-3.0-latest
- '("guile-2.2-default-utf8.patch"
- "guile-3.0-linux-syscalls.patch"
- "guile-3.0-relocatable.patch"))))
+ (make-guile-static-stripped %guile-static-3.0))
(define (tarball-package pkg)
"Return a package containing a tarball of PKG."
--
2.38.1