01/13: gnu: openbios-qemu-ppc: Fix building on aarch64-linux.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 6598e4c56bb94c5032245e54d4f8aeee7fc94f31
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Tue Feb 7 13:30:02 2023 +0200

    gnu: openbios-qemu-ppc: Fix building on aarch64-linux.
    
    * gnu/packages/firmware.scm (openbios-qemu-ppc)[arguments]: When
    building from aarch64-linux build for armhf-linux.
---
 gnu/packages/firmware.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/firmware.scm b/gnu/packages/firmware.scm
index 029e84d5c2..fea7d37923 100644
--- a/gnu/packages/firmware.scm
+++ b/gnu/packages/firmware.scm
@@ -2,7 +2,7 @@
 ;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
 ;;; Copyright © 2017 David Craven <david@craven.ch>
-;;; Copyright © 2017, 2018, 2022 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2017, 2018, 2022, 2023 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2018 Vagrant Cascadian <vagrant@debian.org>
 ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
@@ -414,6 +414,11 @@ provide OpenFirmware functionality on top of an already 
running system.")
       (inherit base)
       (arguments
        (substitute-keyword-arguments (package-arguments base)
+         ((#:system system (%current-system))
+          (if (string-prefix? "aarch64-linux" (or (%current-system)
+                                                  (%current-target-system)))
+            "armhf-linux"
+            system))
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'install 'rename-executable