From 75a25d9c2abecf815041945ab90d9dc1fffbdcf2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 5 May 2023 23:06:02 +0200
Subject: [PATCH] read-print: Recognize 'wrap-program' and 'wrap-script' as
 special forms.

* guix/read-print.scm (%special-forms): Add 'wrap-program' and
'wrap-script'.
---
 guix/read-print.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/guix/read-print.scm b/guix/read-print.scm
index 83b9a61b35..fa44e933b0 100644
--- a/guix/read-print.scm
+++ b/guix/read-print.scm
@@ -335,6 +335,8 @@ expressions and blanks that were read."
    ('with-output-to-file 2)
    ('with-input-from-file 2)
    ('with-directory-excursion 2)
+   ('wrap-program 2)
+   ('wrap-script 2)
 
    ;; (gnu system) and (gnu services).
    ('operating-system 1)