civodul pushed a commit to branch master
in repository guix.
commit 6a04bc8a6d22e21543a702b0df6c90e972015fc6
Author: Ludovic Courtès <[email protected]>
AuthorDate: Sun Oct 2 22:13:06 2022 +0200
transformations: Switch to SRFI-71.
* guix/transformations.scm (package-with-source)
(evaluate-source-replacement-specs): Use SRFI-71 'let' instead of
'let-values'.
---
guix/transformations.scm | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/guix/transformations.scm b/guix/transformations.scm
index be2d31b8c7..bf9639020b 100644
--- a/guix/transformations.scm
+++ b/guix/transformations.scm
@@ -43,11 +43,11 @@
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-9)
- #:use-module (srfi srfi-11)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
#:use-module (srfi srfi-37)
+ #:use-module (srfi srfi-71)
#:use-module (ice-9 match)
#:use-module (ice-9 vlist)
#:export (options->transformation
@@ -115,8 +115,7 @@ extensions."
"Return a package based on P but with its source taken from URI. Extract
the new package's version number from URI."
(let ((base (tarball-base-name (basename uri))))
- (let-values (((_ version*)
- (hyphen-package-name->name+version base)))
+ (let ((_ version* (hyphen-package-name->name+version base)))
(package (inherit p)
(version (or version version*
(package-version p)))
@@ -146,8 +145,7 @@ SPECS uses invalid syntax."
(lambda (old)
(package-with-source old uri)))))
((spec uri)
- (let-values (((name version)
- (package-name->name+version spec)))
+ (let ((name version (package-name->name+version spec)))
;; Note: Here VERSION is used as the version string of the new
;; package rather than as part of the spec of the package being
;; targeted.
