mirror of
https://codeberg.org/guix/guix.git
synced 2025-10-02 02:15:12 +00:00
channels: Use SRFI-71 instead of SRFI-11.
* guix/channels.scm (latest-channel-instance): Use SRFI-71. Change-Id: I73531c98b3034e228006ed91518cc7bfedc784fd
This commit is contained in:
parent
a8353e9d6b
commit
3cadb61963
1 changed files with 6 additions and 7 deletions
|
@ -43,10 +43,10 @@
|
||||||
#:use-module (srfi srfi-1)
|
#:use-module (srfi srfi-1)
|
||||||
#:use-module (srfi srfi-2)
|
#:use-module (srfi srfi-2)
|
||||||
#: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)
|
||||||
#:autoload (guix describe) (current-channels) ;XXX: circular dep
|
#:autoload (guix describe) (current-channels) ;XXX: circular dep
|
||||||
#:autoload (guix self) (whole-package make-config.scm)
|
#:autoload (guix self) (whole-package make-config.scm)
|
||||||
#:autoload (guix inferior) (gexp->derivation-in-inferior) ;FIXME: circular dep
|
#: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")
|
(and (string=? (basename file) ".git")
|
||||||
(eq? 'directory (stat:type stat))))
|
(eq? 'directory (stat:type stat))))
|
||||||
|
|
||||||
(let-values (((channel)
|
(let ((channel (ensure-default-introduction channel))
|
||||||
(ensure-default-introduction channel))
|
(checkout commit relation
|
||||||
((checkout commit relation)
|
(update-cached-checkout (channel-url channel)
|
||||||
(update-cached-checkout (channel-url channel)
|
#:ref (channel-reference channel)
|
||||||
#:ref (channel-reference channel)
|
#:starting-commit starting-commit)))
|
||||||
#:starting-commit starting-commit)))
|
|
||||||
(when relation
|
(when relation
|
||||||
(validate-pull channel starting-commit commit relation))
|
(validate-pull channel starting-commit commit relation))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue