05/41: gnu: guile: Fix building on riscv64-linux.

[guix-commits]

efraim pushed a commit to branch wip-riscv
in repository guix.

commit 04b6ae3640c270659d745cc077b5f1eb589aa640
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Jul 28 12:44:02 2021 +0000

    gnu: guile: Fix building on riscv64-linux.
    
    * gnu/packages/guile.scm (guile-3.0)[arguments]: On riscv64-linux add
    a phase to skip a failing test.
---
 gnu/packages/guile.scm | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 9fa2237..113ad40 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -356,14 +356,17 @@ without requiring the source code to be rewritten.")
                        ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45214
                        (substitute* "bootstrap/Makefile.in"
                          (("^GUILE_OPTIMIZATIONS.*")
-                          "GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives 
-Ocps\n"))))
-                   (add-after 'unpack 'skip-failing-fdes-test
-                     (lambda _
-                       ;; ERROR: ((system-error "seek" "~A" ("Bad file 
descriptor") (9)))
-                       (substitute* "test-suite/tests/ports.test"
-                         (("fdes not closed\"" all) (string-append all "(exit 
77)")))
-                       #t)))
-                 '())))))
+                          "GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives 
-Ocps\n")))))
+                 '())
+           ,@(if (or (target-ppc32?)
+                     (target-riscv?))
+               `((add-after 'unpack 'skip-failing-fdes-test
+                   (lambda _
+                     ;; ERROR: ((system-error "seek" "~A" ("Bad file 
descriptor") (9)))
+                     (substitute* "test-suite/tests/ports.test"
+                       (("fdes not closed\"" all) (string-append all "(exit 
77)")))
+                     #t)))
+               '())))))
 
     (native-search-paths
      (list (search-path-specification