From 6a04bc8a6d22e21543a702b0df6c90e972015fc6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 2 Oct 2022 22:13:06 +0200 Subject: [PATCH] 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 @@ (define-module (guix transformations) #: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 @@ (define* (package-with-source p uri #:optional version) "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 @@ (define not-equal (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.