01/03: channels: Expose the default channel in %default-channel.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 16c7472b332fdf45a487f7aa076cbfc6fec8dc6d
Author: Zhu Zihao <all_but_last@163.com>
AuthorDate: Fri Nov 27 10:16:29 2020 +0800

    channels: Expose the default channel in %default-channel.
    
    * guix/channels(%default-guix-channel): New variable taken from the inner of
    %default-channels.
    
    (%default-channels): Refactored.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/channels.scm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/guix/channels.scm b/guix/channels.scm
index 916d663..0c84eed 100644
--- a/guix/channels.scm
+++ b/guix/channels.scm
@@ -72,6 +72,7 @@
             openpgp-fingerprint->bytevector
             openpgp-fingerprint
 
+            %default-guix-channel
             %default-channels
             guix-channel?
 
@@ -170,13 +171,16 @@ to the corresponding bytevector."
   ;; URL of the default 'guix' channel.
   "https://git.savannah.gnu.org/git/guix.git";)
 
+(define %default-guix-channel
+  (channel
+   (name 'guix)
+   (branch "master")
+   (url %default-channel-url)
+   (introduction %guix-channel-introduction)))
+
 (define %default-channels
   ;; Default list of channels.
-  (list (channel
-         (name 'guix)
-         (branch "master")
-         (url %default-channel-url)
-         (introduction %guix-channel-introduction))))
+  (list %default-guix-channel))
 
 (define (guix-channel? channel)
   "Return true if CHANNEL is the 'guix' channel."