summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2023-03-02 19:37:02 +0100
committerLudovic Courtès <ludo@gnu.org>2023-03-07 11:39:50 +0100
commit11f6bdc547bb80a8c692ce87074058dcd9b0dc8c (patch)
treeda0c9ac5c2a7b83ac89b5bc0d0fdebfda87ab231 /guix
parentc89235fa8507a44fe033bc9e619d629614940a16 (diff)
read-print: Special-case channel-related forms.
* guix/read-print.scm (%special-forms, %newline-forms): Add channel-related forms.
Diffstat (limited to 'guix')
-rw-r--r--guix/read-print.scm4
1 files changed, 3 insertions, 1 deletions
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."