me
/
guix
Archived
1
0
Fork 0
Code

read-print: Properly indent ‘parameterize’. 

Fixes <https://issues.guix.gnu.org/65427>.

* guix/read-print.scm (%special-forms): Add ‘parameterize’.
* tests/read-print.scm: Add test.

Reported-by: Maxime Devos <maximedevos@telenet.be>
Change-Id: I922bffc527ade539cf2eb304acb25bc9c705a459
master
Ludovic Courtès 2023-11-22 16:32:33 +01:00
parent 9363ec208b
commit 2c5fb13a05
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
guix/read-print.scm
View File

@ -330,6 +330,7 @@ expressions and blanks that were read."
('add-after '(((modify-phases) . 3))) ('add-after '(((modify-phases) . 3)))
('add-before '(((modify-phases) . 3))) ('add-before '(((modify-phases) . 3)))
('replace '(((modify-phases) . 2))) ;different from 'modify-inputs' ('replace '(((modify-phases) . 2))) ;different from 'modify-inputs'
('parameterize 2)
('substitute* 2) ('substitute* 2)
('substitute-keyword-arguments 2) ('substitute-keyword-arguments 2)
('call-with-input-file 2) ('call-with-input-file 2)

5
tests/read-print.scm
View File

@ -173,6 +173,11 @@ expressions."
'odd) 'odd)
(else #f))") (else #f))")
(test-pretty-print "\
(parameterize ((a 1)
(b 2))
(call f g h))")
(test-pretty-print "\ (test-pretty-print "\
#~(string-append #$coreutils \"/bin/uname\")") #~(string-append #$coreutils \"/bin/uname\")")