mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 23:06:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

lint: Switch to SRFI-71.

Browse source 
* guix/lint.scm: Switch from SRFI-11 to SRFI-71.

Change-Id: I62e6cd304ad73570bd12bd67f7051566205596bb
This commit is contained in:
Ludovic Courtès 2024-02-19 15:39:19 +01:00
parent d53ca79370
commit cfc63f673f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/lint.scm
View file

@ -84,10 +84,10 @@ (define-module (guix lint)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-6) ;Unicode string ports #:use-module (srfi srfi-6) ;Unicode string ports
#:use-module (srfi srfi-9) #:use-module (srfi srfi-9)
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:use-module (srfi srfi-34) #:use-module (srfi srfi-34)
#:use-module (srfi srfi-35) #:use-module (srfi srfi-35)
#:use-module (srfi srfi-71)
#:use-module (ice-9 rdelim) #:use-module (ice-9 rdelim)
#:export (check-description-style #:export (check-description-style
check-inputs-should-be-native check-inputs-should-be-native
@ -823,8 +823,8 @@ (define response
;; Return RESPONSE, unless the final response as we follow ;; Return RESPONSE, unless the final response as we follow
;; redirects is not 200. ;; redirects is not 200.
(if location (if location
(let-values (((status response2) (let ((status response2 (loop location
(loop location (cons location visited)))) (cons location visited))))
(case status (case status
((http-response) ((http-response)
(values 'http-response (values 'http-response
@ -926,8 +926,7 @@ (define (tls-certificate-error-string args)
(define (validate-uri uri package field) (define (validate-uri uri package field)
"Return #t if the given URI can be reached, otherwise return a warning for "Return #t if the given URI can be reached, otherwise return a warning for
PACKAGE mentioning the FIELD." PACKAGE mentioning the FIELD."
(let-values (((status argument) (let ((status argument (probe-uri uri #:timeout 3))) ;wait at most 3 seconds
(probe-uri uri #:timeout 3))) ;wait at most 3 seconds
(case status (case status
((http-response) ((http-response)
(cond ((= 200 (response-code argument)) (cond ((= 200 (response-code argument))