03/07: publish: Use SRFI-71 instead of SRFI-11.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 17c6d00b575bd6d6f3d29a0774f92a05e7792b41
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Apr 6 11:20:21 2022 +0200

    publish: Use SRFI-71 instead of SRFI-11.
    
    * guix/scripts/publish.scm (make-request-handler): Use 'let' instead of
    'let-values'.
---
 guix/scripts/publish.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm
index 870dfc11e9..d6eb65d912 100644
--- a/guix/scripts/publish.scm
+++ b/guix/scripts/publish.scm
@@ -36,11 +36,11 @@
   #:use-module (srfi srfi-2)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-9 gnu)
-  #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-19)
   #:use-module (srfi srfi-26)
   #:use-module (srfi srfi-34)
   #:use-module (srfi srfi-37)
+  #:use-module (srfi srfi-71)
   #:use-module (web http)
   #:use-module (web request)
   #:use-module (web response)
@@ -1190,8 +1190,7 @@ headers."
   ;; Preserve the request's 'connection' header in the response, so that the
   ;; server can close the connection if this is requested by the client.
   (lambda (request body)
-    (let-values (((response response-body)
-                  (handle request body)))
+    (let ((response response-body (handle request body)))
       (values (preserve-connection-headers request response)
               response-body))))