09/10: read-print: Special-case channel-related forms.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 11f6bdc547bb80a8c692ce87074058dcd9b0dc8c
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Mar 2 19:37:02 2023 +0100

    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."