From 2c5fb13a0504df593b64c416d952df90fb4a5f3f Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 22 Nov 2023 16:32:33 +0100
Subject: read-print: Properly indent ‘parameterize’.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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
---
 tests/read-print.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'tests')

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
@@ -173,6 +173,11 @@ (define-syntax-rule (test-pretty-print/sequence str args ...)
    'odd)
   (else #f))")
 
+(test-pretty-print "\
+(parameterize ((a 1)
+               (b 2))
+  (call f g h))")
+
 (test-pretty-print "\
 #~(string-append #$coreutils \"/bin/uname\")")
 
-- 
cgit v1.2.3