diff options
author | Ludovic Courtès <ludo@gnu.org> | 2024-03-31 23:06:46 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2024-04-15 22:36:41 +0200 |
commit | 3cadb61963b2116d35a0f9b989223cf19155bec6 (patch) | |
tree | fb33321ccef3e8b502dece97728b0fe8071ce446 /guix | |
parent | a8353e9d6b34fd8d42d2e8f14ce844849fe9c293 (diff) | |
download | guix-3cadb61963b2116d35a0f9b989223cf19155bec6.tar guix-3cadb61963b2116d35a0f9b989223cf19155bec6.tar.gz |
channels: Use SRFI-71 instead of SRFI-11.
* guix/channels.scm (latest-channel-instance): Use SRFI-71.
Change-Id: I73531c98b3034e228006ed91518cc7bfedc784fd
Diffstat (limited to 'guix')
-rw-r--r-- | guix/channels.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/guix/channels.scm b/guix/channels.scm index 66f3122f79..10f0e3800f 100644 --- a/guix/channels.scm +++ b/guix/channels.scm @@ -43,10 +43,10 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-2) #: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) #:autoload (guix describe) (current-channels) ;XXX: circular dep #:autoload (guix self) (whole-package make-config.scm) #:autoload (guix inferior) (gexp->derivation-in-inferior) ;FIXME: circular dep @@ -411,12 +411,11 @@ their relation. When AUTHENTICATE? is false, CHANNEL is not authenticated." (and (string=? (basename file) ".git") (eq? 'directory (stat:type stat)))) - (let-values (((channel) - (ensure-default-introduction channel)) - ((checkout commit relation) - (update-cached-checkout (channel-url channel) - #:ref (channel-reference channel) - #:starting-commit starting-commit))) + (let ((channel (ensure-default-introduction channel)) + (checkout commit relation + (update-cached-checkout (channel-url channel) + #:ref (channel-reference channel) + #:starting-commit starting-commit))) (when relation (validate-pull channel starting-commit commit relation)) |