amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

read-print: 'read-with-comments' reads comments within gexps.

Browse source 
Fixes <https://issues.guix.gnu.org/62059>.
Reported by Maxim Cournoyer <maxim.cournoyer@gmail.com>.

* guix/read-print.scm (read-with-comments): Special-case #~, #$, and #+.
* tests/read-print.scm: Add two tests.
This commit is contained in:
Ludovic Courtès 2023-03-16 22:18:52 +01:00
parent 8f219e658d
commit 83128f00e9
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 36 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
tests/read-print.scm
View file

@ -231,6 +231,21 @@ mnopqrstuvwxyz.\")"
;; Regular indentation for 'replace' here.
(replace \"gmp\" gmp))")
(test-pretty-print "\
#~(modify-phases phases
(add-after 'whatever 'something-else
(lambda _
;; This comment appears inside a gexp.
42)))")
(test-pretty-print "\
#~(list #$@(list coreutils ;yup
grep) ;margin comment
#+sed
;; Line comment.
#$grep)")
(test-pretty-print "\
(package
;; Here 'sha256', 'base32', and 'arguments' must be