diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-09-17 16:15:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-09-20 19:24:31 +0200 |
| commit | 7a698da0d04d75f1c49f9ae9f358070acab0f781 (patch) | |
| tree | b0d4b48b18fdcdfc822313b569e1e7c25fec4c6d /tests | |
| parent | 818220f1ccd57d14a62f07489b0e5e21837bb3dd (diff) | |
| download | guix-7a698da0d04d75f1c49f9ae9f358070acab0f781.tar guix-7a698da0d04d75f1c49f9ae9f358070acab0f781.tar.gz | |
read-print: Correctly support multiple same-named newline forms.
Previously (home-environment (services ...)) would not be considered a
"newline form". This fixes it.
* guix/read-print.scm (newline-form?): Use 'vhash-foldq*' instead of
'vhash-assq' and iterate over candidates.
* tests/read-print.scm: Add test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/read-print.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/read-print.scm b/tests/read-print.scm index ca3f3193f7..ea52a52145 100644 --- a/tests/read-print.scm +++ b/tests/read-print.scm @@ -294,6 +294,11 @@ mnopqrstuvwxyz.\")" ;; page break above end)") +(test-pretty-print "\ +(home-environment + (services + (list (service-type home-bash-service-type))))") + (test-pretty-print/sequence "\ ;;; This is a top-level comment. |