[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: fixup guile-3.0
From: |
guix-commits |
Subject: |
01/02: fixup guile-3.0 |
Date: |
Wed, 18 Aug 2021 04:11:38 -0400 (EDT) |
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)))