diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-08-01 22:35:10 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-08-08 11:22:32 +0200 |
| commit | 5b273e7c777cc975d398df9f9a6847b935cb5e86 (patch) | |
| tree | a783997ded1307449b4d731e07da764df0cb9ef8 /guix/scripts | |
| parent | 38f1fb843cb3b538bf042a3baed99618953a005f (diff) | |
| download | guix-patches-5b273e7c777cc975d398df9f9a6847b935cb5e86.tar guix-patches-5b273e7c777cc975d398df9f9a6847b935cb5e86.tar.gz | |
read-print: Introduce <blank> parent class of <comment>.
* guix/read-print.scm (<blank>, blank?): New record type.
(<comment>): Redefine using the record interface.
(read-with-comments, pretty-print-with-comments): Change some uses of
'comment?' to 'blank?'.
* guix/scripts/style.scm (simplify-inputs)[simplify-expressions]: Use
'blank?' instead of 'comment?'.
Diffstat (limited to 'guix/scripts')
| -rw-r--r-- | guix/scripts/style.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/style.scm b/guix/scripts/style.scm index e2530e80c0..5c0ecc0896 100644 --- a/guix/scripts/style.scm +++ b/guix/scripts/style.scm @@ -108,7 +108,7 @@ bailing out~%") (exp exp) (inputs inputs)) (match exp - (((? comment? head) . rest) + (((? blank? head) . rest) (loop (cons head result) rest inputs)) ((head . rest) (match inputs |