From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp10.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id WFR7HmVOUWKKYQEAgWs5BA (envelope-from ) for ; Sat, 09 Apr 2022 11:14:13 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp10.migadu.com with LMTPS id 8AwUF2VOUWKbCwAAG6o9tA (envelope-from ) for ; Sat, 09 Apr 2022 11:14:13 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id BF7B087ED for ; Sat, 9 Apr 2022 11:14:12 +0200 (CEST) Received: from localhost ([::1]:42044 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nd7AZ-0008SL-Ud for larch@yhetil.org; Sat, 09 Apr 2022 05:14:11 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:53834) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nd7AQ-0008RW-PJ for guix-patches@gnu.org; Sat, 09 Apr 2022 05:14:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:42823) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1nd7AQ-0003lR-Gi for guix-patches@gnu.org; Sat, 09 Apr 2022 05:14:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1nd7AQ-0008Nz-C7 for guix-patches@gnu.org; Sat, 09 Apr 2022 05:14:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#54811] [PATCH 1/3] publish: Use SRFI-71 instead of SRFI-11. References: <20220409091246.6979-1-ludo@gnu.org> In-Reply-To: <20220409091246.6979-1-ludo@gnu.org> Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sat, 09 Apr 2022 09:14:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 54811 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 54811@debbugs.gnu.org Cc: Ludovic =?UTF-8?Q?Court=C3=A8s?= Received: via spool by 54811-submit@debbugs.gnu.org id=B54811.164949563632188 (code B ref 54811); Sat, 09 Apr 2022 09:14:02 +0000 Received: (at 54811) by debbugs.gnu.org; 9 Apr 2022 09:13:56 +0000 Received: from localhost ([127.0.0.1]:36713 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1nd7AH-0008My-Tx for submit@debbugs.gnu.org; Sat, 09 Apr 2022 05:13:55 -0400 Received: from eggs.gnu.org ([209.51.188.92]:60498) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1nd7AG-0008Mg-II for 54811@debbugs.gnu.org; Sat, 09 Apr 2022 05:13:52 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:46960) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nd7AB-0003kD-Ay; Sat, 09 Apr 2022 05:13:47 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:Date:Subject:To:From:in-reply-to: references; bh=SryT9h6F89eVe/pvqBP8Y9PIeGCaGEY6hWVl1LI1CLQ=; b=cnL9fjk6yvSJu9 B7Sy+O8Za5J6I1gdHMbUaDDDR80Fi6H1i2UZibJe2RJgui7RhQbN5KhvlLzxT0xFNd2k8x1n27/Ii D2L38dP6gqHhR3V5sJB2crzztdvlU+1xJv8ExGQiT0qap8t4FqxXYIGFHcWDInpZ297Xh0FCGjS91 Uvm/dCWWz/f0naPMm6e5ixW3ojE9m4euQSWhz4jZ1H7fDuiU2kn3Q7zIUEXLDjS8tD4/BsqBGsWif t/UbjiHHC9AltQnRWWZ3O+uGdPdhaeIRv8uIhBSBc3DaKW49AmJeHOEV7E+EEBtfEl3Ta6G5O/65J rb4u7sVP4LXB0KPsTF7w==; Received: from 91-160-117-201.subs.proxad.net ([91.160.117.201]:58682 helo=gnu.org) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1nd7AA-00086k-V0; Sat, 09 Apr 2022 05:13:47 -0400 From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Date: Sat, 9 Apr 2022 11:13:38 +0200 Message-Id: <20220409091340.7013-1-ludo@gnu.org> X-Mailer: git-send-email 2.35.1 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: "Guix-patches" X-Migadu-Flow: FLOW_IN X-Migadu-To: larch@yhetil.org X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1649495652; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-transfer-encoding:content-transfer-encoding:resent-cc: resent-from:resent-sender:resent-message-id:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=SryT9h6F89eVe/pvqBP8Y9PIeGCaGEY6hWVl1LI1CLQ=; b=nW68HzaqzNLPVHmPuAK5E96gfL1BKT4K0Ki2ELuAVR3iIMZz16tabHc34tjJh0exyBzMaZ hbuIF71eSh3eVFC2qbtJfuikM40EU8PDLgA6ImdK93yRMdG/bYsZBxA5sIYowv1CglEXLg z/VPZmJwHKc0speJf0toQ1QEKlPqJeTL8xuB6/aY2lklsP9VgMsO3NF2wOlrlROjWLH+yY dtazI10DnsHvjlRKod768vya6+kbq/YppOPzKMOFwlr6ox69nrRjD6Ic4p+IVLIkHU2K6t eRu8xoXpt0RNZJf33KdSdp/66tIbUiUMr1SdAWnEo5k+N9fiMgBcarlyAfUn2Q== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1649495652; a=rsa-sha256; cv=none; b=cCEadF6aMubIRsR/zUHpeyRgRWOpIfNdUsEHAQlHct+OP7jfwXkM5e6XvNbhwcpZMsWyhT oBK6xCs8RiZmyBkg1MJai0avNbDBNJ4757h/kPiXXz7SY1Yx9DD7T/w5VrHhUzVS7UfwDm f7/KOgFnH7tefHOzAQuy0FTYu+rnfyVnc0IQtWjm22QQO5N/UcVa04rMOLRsmkAsrmG5ka 5TvIBTnbt5QjiA53lKqCaTpEHU4sxSthDy5rBEfW7tmjsep89ECWgTvaXRoPS8nUuuGTB9 tTVcMddkYVEnZKOQxeZ7N8xrGkQ++4cNkp9KrO7AAEPdUd7Y3525uN0OoIgo3Q== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=gnu.org header.s=fencepost-gnu-org header.b=cnL9fjk6; dmarc=pass (policy=none) header.from=gnu.org; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org" X-Migadu-Spam-Score: -3.27 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=gnu.org header.s=fencepost-gnu-org header.b=cnL9fjk6; dmarc=pass (policy=none) header.from=gnu.org; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org" X-Migadu-Queue-Id: BF7B087ED X-Spam-Score: -3.27 X-Migadu-Scanner: scn0.migadu.com X-TUID: Kf4veiATlJPN * 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 @@ (define-module (guix scripts publish) #: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 @@ (define (handle request body) ;; 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)))) -- 2.35.1