From 8994babc7c49d3a118bb8341549fef209a21dcc2 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 19 Apr 2021 20:16:10 -0700
Subject: matcher: first pattern macro, sme.

* lisplib.c (match_instantiate): Intern sme symbol.

* share/txr/stdlib/doc-syms.tl: Update with sme entry.

* share/txr/stdlib/match.tl (sme): New defmatch macro.

* tests/011/patmatch.tl: New tests for sme.

* 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 95fa9914..422fcaaa 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("scan"),
+    lit("all*"), lit("as"), lit("with"), lit("scan"), lit("sme"),
     nil
   };
   val name[] = {
-- 
cgit v1.2.3