From cd157595ffd58ad1eadb52c9adf2671a94794f07 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 4 May 2021 21:36:07 -0700
Subject: matcher: new "each-match family" of macros.

* lisplib.c (match_set_entries): New autoload symbols:
each-match, append-matches, keep-matches, each-match-product,
append-match-products, keep-match-products.

* share/txr/stdlib/doc-syms.tl: Updated.

* share/txr/stdlib/match.tl (each-match-expander): New
function.
(each-match, append-matches, keep-matches, each-match-product,
append-match-products, keep-match-products): New macros.

* tests/011/patmatch.tl: New tests covering each macro,
far from exhaustively.

* txr.1: Documented.
---
 lisplib.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lisplib.c')

diff --git a/lisplib.c b/lisplib.c
index 5d85ec48..a58a8972 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -877,6 +877,9 @@ static val match_set_entries(val dlt, val fun)
   val name[] = {
     lit("when-match"), lit("match-case"), lit("if-match"),
     lit("lambda-match"), lit("defun-match"), lit("defmatch"),
+    lit("each-match"), lit("append-matches"),
+    lit("keep-matches"), lit("each-match-product"),
+    lit("append-match-products"), lit("keep-match-products"),
     lit("*match-macro*"),
     nil
   };
-- 
cgit v1.2.3