From 5588d9bd7a1f1982b6615fb050db65e16e354192 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Mon, 12 Dec 2022 09:33:10 -0500 Subject: [PATCH] gnu: %guile-static-3.0: New variable. * 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(-) 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."