01/02: fixup guile-3.0

[guix-commits]

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

commit 0f12bcd41ce7a82e5c69c8d660e19d22ee5a41d0
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Aug 18 10:59:45 2021 +0300

    fixup guile-3.0
---
 gnu/packages/guile.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index f9a7125..721ea19 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -65,8 +65,7 @@
   #:use-module (guix deprecation)
   #:use-module (guix utils)
   #:use-module (ice-9 match)
-  #:use-module ((srfi srfi-1) #:prefix srfi-1:)
-  #:use-module (srfi srfi-26))
+  #:use-module ((srfi srfi-1) #:prefix srfi-1:))
 
 ;;; Commentary:
 ;;;
@@ -349,8 +348,8 @@ without requiring the source code to be rewritten.")
                          (("^GUILE_OPTIMIZATIONS.*")
                           "GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives 
-Ocps\n")))))
                  '())
-           ,@(if (srfi-1:any (cute string-prefix? <> (%current-system))
-                             '("powerpc-" "riscv64-"))
+           ,@(if (or (target-ppc32?)
+                     (target-riscv?))
                `((add-after 'unpack 'skip-failing-fdes-test
                    (lambda _
                      ;; ERROR: ((system-error "seek" "~A" ("Bad file 
descriptor") (9)))