diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-10-02 22:13:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-10-02 22:14:45 +0200 |
| commit | 6a04bc8a6d22e21543a702b0df6c90e972015fc6 (patch) | |
| tree | 0b9b67af796d597c2e9c16d7b763d005fcd6ef61 | |
| parent | bb3b810167d9ff784770a848a6f86b0cfa9cdfd8 (diff) | |
transformations: Switch to SRFI-71.
* guix/transformations.scm (package-with-source)
(evaluate-source-replacement-specs): Use SRFI-71 'let' instead of
'let-values'.
| -rw-r--r-- | guix/transformations.scm | 8 |
1 files 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. |