diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-03-02 19:37:02 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-03-07 11:39:50 +0100 |
| commit | 11f6bdc547bb80a8c692ce87074058dcd9b0dc8c (patch) | |
| tree | da0c9ac5c2a7b83ac89b5bc0d0fdebfda87ab231 | |
| parent | c89235fa8507a44fe033bc9e619d629614940a16 (diff) | |
| download | guix-11f6bdc547bb80a8c692ce87074058dcd9b0dc8c.tar.gz guix-11f6bdc547bb80a8c692ce87074058dcd9b0dc8c.zip | |
read-print: Special-case channel-related forms.
* guix/read-print.scm (%special-forms, %newline-forms): Add
channel-related forms.
| -rw-r--r-- | guix/read-print.scm | 4 |
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." |