[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/12: lint: Switch to SRFI-71.
From: |
guix-commits |
Subject: |
01/12: lint: Switch to SRFI-71. |
Date: |
Sat, 9 Mar 2024 13:49:04 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit cfc63f673fb00dc30f6fd7916e78855721885d73
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Feb 19 15:39:19 2024 +0100
lint: Switch to SRFI-71.
* guix/lint.scm: Switch from SRFI-11 to SRFI-71.
Change-Id: I62e6cd304ad73570bd12bd67f7051566205596bb
---
guix/lint.scm | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/guix/lint.scm b/guix/lint.scm
index c95de85e69..84df171045 100644
--- a/guix/lint.scm
+++ b/guix/lint.scm
@@ -84,10 +84,10 @@
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-6) ;Unicode string ports
#: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-71)
#:use-module (ice-9 rdelim)
#:export (check-description-style
check-inputs-should-be-native
@@ -823,8 +823,8 @@ for connections to complete; when TIMEOUT is #f, wait as
long as needed."
;; Return RESPONSE, unless the final response as we follow
;; redirects is not 200.
(if location
- (let-values (((status response2)
- (loop location (cons location visited))))
+ (let ((status response2 (loop location
+ (cons location visited))))
(case status
((http-response)
(values 'http-response
@@ -926,8 +926,7 @@ display a message including MESSAGE and return ERROR-VALUE."
(define (validate-uri uri package field)
"Return #t if the given URI can be reached, otherwise return a warning for
PACKAGE mentioning the FIELD."
- (let-values (((status argument)
- (probe-uri uri #:timeout 3))) ;wait at most 3 seconds
+ (let ((status argument (probe-uri uri #:timeout 3))) ;wait at most 3 seconds
(case status
((http-response)
(cond ((= 200 (response-code argument))
- branch master updated (d53ca79370 -> 2f441fc738), guix-commits, 2024/03/09
- 09/12: bzr-download: Implement nar fallback., guix-commits, 2024/03/09
- 12/12: download: Honor ‘GUIX_DOWNLOAD_METHODS’ environment variable., guix-commits, 2024/03/09
- 01/12: lint: Switch to SRFI-71.,
guix-commits <=
- 04/12: swh: Add ‘type’ field to <visit>., guix-commits, 2024/03/09
- 07/12: hg-download: Use ‘swh-download-directory-by-nar-hash’., guix-commits, 2024/03/09
- 10/12: download-nar: Distinguish ‘output’ and ‘item’ parameter., guix-commits, 2024/03/09
- 06/12: swh: ‘lookup-origin-revision’ handles branches pointing to directories., guix-commits, 2024/03/09
- 02/12: lint: archival: Fix crash in non-Git case., guix-commits, 2024/03/09
- 08/12: svn-download: Use ‘swh-download-directory-by-nar-hash’., guix-commits, 2024/03/09
- 05/12: swh: ‘origin-visits’ takes an optional ‘max’ parameter., guix-commits, 2024/03/09
- 03/12: lint: archival: Trigger “Save Code Now” for VCSes other than Git., guix-commits, 2024/03/09
- 11/12: perform-download: Allow use of ‘download-nar’ for ‘--check’ builds., guix-commits, 2024/03/09