me
/
guix
Archived
1
0
Fork 0
Code

pull: Use SRFI-71 instead of SRFI-11. 

* guix/scripts/pull.scm (display-new/upgraded-packages): Use SRFI-71 'let'.
master
Ludovic Courtès 2021-06-28 23:36:50 +02:00
parent 0ba4f0caa4
commit f386a993ef
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/scripts/pull.scm
View File

@ -51,11 +51,11 @@
#:autoload (gnu packages bootstrap) (%bootstrap-guile)
#:autoload (gnu packages certs) (le-certs)
#:use-module (srfi srfi-1)
#: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)
#:use-module (ice-9 format)
@ -601,7 +601,7 @@ Return true when there is more package info to display."
(string-join lst ", ")))
(cut string-join <> ", ")))
(let-values (((new upgraded) (new/upgraded-packages alist1 alist2)))
(let ((new upgraded (new/upgraded-packages alist1 alist2)))
(define new-count (length new))
(define upgraded-count (length upgraded))