From 3546eefbbaefac9457e4f18c1d2ed0aba5a6b933 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 1 Feb 2021 23:48:35 -0800
Subject: matcher: new @(with) operator.

* lisplib.c (match_instantiate): Ensure usr:with is interned.

* share/txr/stdlib/match.tl (compile-with-match): New
function.
(compile-match): Wire in with operator.

* tests/011/patmatch.tl: Test cases.

* txr.1: Documented.
---
 lisplib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisplib.c')

diff --git a/lisplib.c b/lisplib.c
index 60612575..c0d6ded0 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -870,7 +870,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("all*"), lit("as"), lit("with"),
     nil
   };
   val name[] = {
-- 
cgit v1.2.3