From 5dd0d7f99f4a71a6ed4a2dab66d32e4b7ed2b70c Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 7 Mar 2023 15:48:01 +0100 Subject: 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 +;;; Copyright © 2012-2023 Ludovic Courtès ;;; Copyright © 2014, 2015, 2017, 2018, 2019 Mark H Weaver ;;; Copyright © 2015 Eric Bavier ;;; Copyright © 2016 Alex Kost @@ -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)) -- cgit v1.2.3