From 6db3b34d7203639ef4286c237a6e536259f92352 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 8 Aug 2022 11:49:44 +0200
Subject: read-print: Add 'case' and 'cond' special forms.

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

(limited to 'guix')

diff --git a/guix/read-print.scm b/guix/read-print.scm
index df25eb0f50..9d666d7f70 100644
--- a/guix/read-print.scm
+++ b/guix/read-print.scm
@@ -255,6 +255,8 @@ expressions and blanks that were read."
   ;; symbol must appear within a (modify-phases ...) expression.
   (vhashq
    ('begin 1)
+   ('case 2)
+   ('cond 1)
    ('lambda 2)
    ('lambda* 2)
    ('match-lambda 1)
-- 
cgit v1.2.3