From f98f2a73750bff9b182c74d073a9c78e5316d7ae Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 1 Feb 2021 21:44:29 -0800
Subject: matcher: rename @(let) to @(as).

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

* share/txr/stdlib/match.tl (compile-let-match): Rename to
compile-as-match.
(compile-match): Remove handling of let symbol; route as
symbol to compile-as-match.

* tests/011/patmatch.tl: Update all uses of let to as.

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

(limited to 'lisplib.c')

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