From d1b7254ee6bf59b6ff6a97134f10061cf8090b29 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 18 Apr 2021 16:58:06 -0700
Subject: 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.
---
 lisplib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisplib.c')

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[] = {
-- 
cgit v1.2.3