From 6a04bc8a6d22e21543a702b0df6c90e972015fc6 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sun, 2 Oct 2022 22:13:06 +0200
Subject: 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.
-- 
cgit v1.2.3

r</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=b318f7c7d024928d1997bd423bbdd10566d196f2'>root</a>/<a href='/guix/log/gnu?id=b318f7c7d024928d1997bd423bbdd10566d196f2'>gnu</a>/<a href='/guix/log/gnu/services?id=b318f7c7d024928d1997bd423bbdd10566d196f2'>services</a>/<a href='/guix/log/gnu/services/lightdm.scm?id=b318f7c7d024928d1997bd423bbdd10566d196f2'>lightdm.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/services/lightdm.scm?id=b318f7c7d024928d1997bd423bbdd10566d196f2&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-04-28 23:37:24 +0200'>2024-04-28</span></td><td><a href='/guix/commit/gnu/services/lightdm.scm?id=ae36d514aa011dd9635c9a3817dcb6b0e000be27'>services: lightdm: Use ‘make-forkexec-constructor’.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-05-11 13:21:45 +0200'>2023-05-11</span></td><td><a href='/guix/commit/gnu/services/lightdm.scm?id=2df5d4fd18a2fbcb8066a50e2da8ec64635f5162'>system: pam: Let PAM extensions add shepherd requirements.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2023-02-08 22:40:40 -0500'>2023-02-08</span></td><td><a href='/guix/commit/gnu/services/lightdm.scm?id=8a2c2eaa906bd12d9c804ba18ac305b9719507ef'>services: lightdm: Sync documentation with source.</a><span class='msg-avail'>...</span></td><td>Bruno Victal</td></tr>