@@ -3,7 +3,7 @@
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2021-2022 Ludovic Courtès <ludo@gnu.org>
-;;; Copyright © 2021 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;;
;;; This file is part of GNU Guix.
@@ -110,8 +110,11 @@ (define %go-build-system-modules
(define (default-go)
;; Lazily resolve the binding to avoid a circular dependency.
- (let ((go (resolve-interface '(gnu packages golang))))
- (module-ref go 'go)))
+ (let ((gcc (resolve-interface '(gnu packages gcc)))
+ (golang (resolve-interface '(gnu packages golang))))
+ (if (target-ppc32?)
+ (module-ref gcc 'gccgo-11)
+ (module-ref golang 'go))))
(define (make-go-std)
(module-ref (resolve-interface '(gnu packages golang)) 'make-go-std))