From 63b0d8912d1ab0fe29fedca72ef7435e8e78ceea Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Tue, 13 Dec 2022 13:05:32 +0200
Subject: fixup binutils-mesboot0

(%current-system) evaluated too early
---
 gnu/packages/commencement.scm | 50 +++++++++++++++++++++----------------------
 1 file changed, 25 insertions(+), 25 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 9d2e401acb..d3fc24611e 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -961,31 +961,31 @@ (define (%boot-tcc-inputs)
 
 (define binutils-mesboot0
   ;; The initial Binutils
-  (let ((triplet (match (%current-system)
-                   ((or "armhf-linux" "aarch64-linux")
-                    "arm-unknown-linux-gnu")
-                   ((or "i686-linux" "x86_64-linux")
-                    "i386-unknown-linux-gnu"))))
-    (package
-      (inherit binutils)
-      (name "binutils-mesboot0")
-      (version "2.20.1a")
-      (source (origin
-                (method url-fetch)
-                (uri (string-append "mirror://gnu/binutils/binutils-"
-                                    version ".tar.bz2"))
-                ;; `patches' needs XZ
-                ;; (patches (search-patches "binutils-boot-2.20.1a.patch"))
-                ;; (patch-guile %bootstrap-guile)
-                (sha256
-                 (base32
-                  "0r7dr0brfpchh5ic0z9r4yxqn4ybzmlh25sbp30cacqk8nb7rlvi"))))
-      (inputs '())
-      (propagated-inputs '())
-      (native-inputs (%boot-tcc-inputs))
-      (supported-systems '("armhf-linux" "aarch64-linux"
-                           "i686-linux" "x86_64-linux"))
-      (arguments
+  (package
+    (inherit binutils)
+    (name "binutils-mesboot0")
+    (version "2.20.1a")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnu/binutils/binutils-"
+                                  version ".tar.bz2"))
+              ;; `patches' needs XZ
+              ;; (patches (search-patches "binutils-boot-2.20.1a.patch"))
+              ;; (patch-guile %bootstrap-guile)
+              (sha256
+               (base32
+                "0r7dr0brfpchh5ic0z9r4yxqn4ybzmlh25sbp30cacqk8nb7rlvi"))))
+    (inputs '())
+    (propagated-inputs '())
+    (native-inputs (%boot-tcc-inputs))
+    (supported-systems '("armhf-linux" "aarch64-linux"
+                         "i686-linux" "x86_64-linux"))
+    (arguments
+     (let ((triplet (match (%current-system)
+                           ((or "armhf-linux" "aarch64-linux")
+                            "arm-unknown-linux-gnu")
+                           ((or "i686-linux" "x86_64-linux")
+                            "i386-unknown-linux-gnu"))))
        (list
         #:implicit-inputs? #f
         #:guile %bootstrap-guile
-- 
cgit v1.2.3