civodul pushed a commit to branch master
in repository guix.
commit 5dd0d7f99f4a71a6ed4a2dab66d32e4b7ed2b70c
Author: Ludovic Courtès <[email protected]>
AuthorDate: Tue Mar 7 15:48:01 2023 +0100
packages: Use SRFI-71 instead of SRFI-11.
* guix/packages.scm (package-input-rewriting/spec): Use SRFI-71 'let'.
---
guix/packages.scm | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/guix/packages.scm b/guix/packages.scm
index 7b098e21f0..ca958c6eae 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012-2022 Ludovic Courtès <[email protected]>
+;;; Copyright © 2012-2023 Ludovic Courtès <[email protected]>
;;; Copyright © 2014, 2015, 2017, 2018, 2019 Mark H Weaver <[email protected]>
;;; Copyright © 2015 Eric Bavier <[email protected]>
;;; Copyright © 2016 Alex Kost <[email protected]>
@@ -52,10 +52,10 @@
#:use-module (ice-9 regex)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-9 gnu)
- #:use-module (srfi srfi-11)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
+ #:use-module (srfi srfi-71)
#:use-module (rnrs bytevectors)
#:use-module (web uri)
#:autoload (texinfo) (texi-fragment->stexi)
@@ -1540,8 +1540,7 @@ matching package and returns a replacement for that
package."
(fold (lambda (replacement table)
(match replacement
((spec . proc)
- (let-values (((name version)
- (package-name->name+version spec)))
+ (let ((name version (package-name->name+version spec)))
(vhash-cons name (list version proc) table)))))
vlist-null
replacements))
