matcher: new @(scan) operator.

* share/txr/stdlib/match.tl (compile-scan-match): New
function.
(compile-match): Hook scan operator into compiler.

* lisplib.c (match_set_entries): Ensure scan is interned in
usr package.

* txr.1: Documented.

* share/txr/stdlib/doc-syms.tl: Updated with new entry for
scan.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index a8e8c8de..95fa9914 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -871,7 +871,7 @@ static val match_instantiate(val set_fun)
 static val match_set_entries(val dlt, val fun)
 {
   val name_noload[] = {
-    lit("all*"), lit("as"), lit("with"),
+    lit("all*"), lit("as"), lit("with"), lit("scan"),
     nil
   };
   val name[] = {