matcher: new looping macros.

* lisplib.c (match_set_entries): Autoload on new while-match,
while-match-case and while-true-match-case symbols.

* share/txr/stdlib/match.tl (while-match, while-match-case,
while-true-match-case): New macros.

* tests/011/patmatch.tl: Tests.

* txr.1: Documented.

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

1 files changed, 1 insertions, 0 deletions

diff --git a/lisplib.c b/lisplib.c
index 9ca2773c..37b21ba0 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -882,6 +882,7 @@ static val match_set_entries(val dlt, val fun)
   };
   val name[] = {
     lit("when-match"), lit("match-case"), lit("if-match"),
+    lit("while-match"), lit("while-match-case"), lit("while-true-match-case"),
     lit("lambda-match"), lit("defun-match"), lit("defmatch"),
     lit("each-match"), lit("append-matches"),
     lit("keep-matches"), lit("each-match-product"),