matcher: allow user-defined patterns via defmatch

* lisplib.c (match_set_entries): Register defmatch
and *match-symbol* to autoload match.tl.

* share/txr/stdlib/doc-syms.tl: Updated with entries for
defmatch and *match-macro*.

* share/txr/stdlib/match.tl (*match-macro*): New special
variable holding hash.
(compile-match): Handle macros via *match-macro* hash.
(defmatch): New macro.

* txr.1: Documented.

* tags.tl: Recognize defmatch forms.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index c37cb4a5..a8e8c8de 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -876,7 +876,8 @@ 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("lambda-match"), lit("defun-match"), lit("defmatch"),
+    lit("*match-macro*"),
     nil
   };
   val match_k = intern(lit("match"), keyword_package);