diff options
| -rw-r--r-- | guix/read-print.scm | 1 | ||||
| -rw-r--r-- | tests/read-print.scm | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/guix/read-print.scm b/guix/read-print.scm index 7faad82c94..690f5dacdd 100644 --- a/guix/read-print.scm +++ b/guix/read-print.scm @@ -330,6 +330,7 @@ expressions and blanks that were read." ('add-after '(((modify-phases) . 3))) ('add-before '(((modify-phases) . 3))) ('replace '(((modify-phases) . 2))) ;different from 'modify-inputs' + ('parameterize 2) ('substitute* 2) ('substitute-keyword-arguments 2) ('call-with-input-file 2) diff --git a/tests/read-print.scm b/tests/read-print.scm index c8b8eb73fe..c1006a8a68 100644 --- a/tests/read-print.scm +++ b/tests/read-print.scm @@ -174,6 +174,11 @@ expressions." (else #f))") (test-pretty-print "\ +(parameterize ((a 1) + (b 2)) + (call f g h))") + +(test-pretty-print "\ #~(string-append #$coreutils \"/bin/uname\")") (test-pretty-print "\ |