From 11f6bdc547bb80a8c692ce87074058dcd9b0dc8c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 2 Mar 2023 19:37:02 +0100
Subject: [PATCH] read-print: Special-case channel-related forms.

* guix/read-print.scm (%special-forms, %newline-forms): Add
channel-related forms.
---
 guix/read-print.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix/read-print.scm b/guix/read-print.scm
index ccddca732d..46b722eeed 100644
--- a/guix/read-print.scm
+++ b/guix/read-print.scm
@@ -299,6 +299,7 @@ expressions and blanks that were read."
    ('unless 2)
    ('package 1)
    ('origin 1)
+   ('channel 1)
    ('modify-inputs 2)
    ('modify-phases 2)
    ('add-after '(((modify-phases) . 3)))
@@ -342,7 +343,8 @@ expressions and blanks that were read."
    ('services '(operating-system))
    ('set-xorg-configuration '())
    ('services '(home-environment))
-   ('home-bash-configuration '(service))))
+   ('home-bash-configuration '(service))
+   ('introduction '(channel))))
 
 (define (prefix? candidate lst)
   "Return true if CANDIDATE is a prefix of LST."