summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-06-28 23:36:50 +0200
committerLudovic Courtès <ludo@gnu.org>2021-06-29 00:00:14 +0200
commitf386a993ef9b75e37d708aee5f78312f7bcc9425 (patch)
tree051691740a55202c910e1eff2e2aa685ffb12847
parent0ba4f0caa4148c0e1080218ffcbd32127f41887f (diff)
pull: Use SRFI-71 instead of SRFI-11.
* guix/scripts/pull.scm (display-new/upgraded-packages): Use SRFI-71 'let'.
-rw-r--r--guix/scripts/pull.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm
index c880a5b1c8..fb8ce50fa7 100644
--- a/guix/scripts/pull.scm
+++ b/guix/scripts/pull.scm
@@ -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))