match: new @(scan-all) operator.

This is like @(scan) but collects all matches over the
suffixes of the list.

* autoload.c (match_set_entries): Intern scan-all symbol.

* stdlib/match.tl (compile-scan-all-match): New function.
(compile-match): Dispatch compile-scan-all-match on scan-all
symbol.

* tests/011/patmatch.tl: Tests for scanall and also missing
tests for scan.

* txr.1: Documented.

1 files changed, 2 insertions, 1 deletions

diff --git a/autoload.c b/autoload.c
index f9e50a2c..032bd7fb 100644
--- a/autoload.c
+++ b/autoload.c
@@ -840,7 +840,8 @@ static val quips_instantiate(void)
 static val match_set_entries(val fun)
 {
   val name_noload[] = {
-    lit("all*"), lit("as"), lit("with"), lit("scan"), lit("sme"),
+    lit("all*"), lit("as"), lit("with"), lit("scan"), lit("scan-all"),
+    lit("sme"),
     nil
   };
   val name[] = {