aboutsummaryrefslogtreecommitdiff
path: root/guix/read-print.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-08-08 11:49:44 +0200
committerLudovic Courtès <ludo@gnu.org>2022-08-08 11:54:25 +0200
commit6db3b34d7203639ef4286c237a6e536259f92352 (patch)
tree88a40baac71601b892657f5def4a516bf93209a5 /guix/read-print.scm
parentff9522fb69b9f4a31a5b766029e26dc53a2d1cf8 (diff)
downloadguix-6db3b34d7203639ef4286c237a6e536259f92352.tar
guix-6db3b34d7203639ef4286c237a6e536259f92352.tar.gz
read-print: Add 'case' and 'cond' special forms.
* guix/read-print.scm (%special-forms): Add 'case' and 'cond'. * tests/read-print.scm: Add tests.
Diffstat (limited to 'guix/read-print.scm')
-rw-r--r--guix/read-print.scm2
1 files changed, 2 insertions, 0 deletions
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)