From 165f289b0a028906e574281286bc0e8f98346b6b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 15 Jan 2021 22:01:49 -0800
Subject: matcher: add if-match and match-case.

* lisplib.c (match_set_entries): Add match-case and if-match
autoload trigger symbols.

* share/txr/stdlib/match.tl (if-match, match-case): New
macros.
---
 lisplib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisplib.c')

diff --git a/lisplib.c b/lisplib.c
index fa6022de..38fa4e35 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -874,7 +874,7 @@ static val match_set_entries(val dlt, val fun)
     nil
   };
   val name[] = {
-    lit("when-match"),
+    lit("when-match"), lit("match-case"), lit("if-match"),
     nil
   };
 
-- 
cgit v1.2.3