diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-02-01 21:44:29 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-02-01 21:44:29 -0800 |
commit | f98f2a73750bff9b182c74d073a9c78e5316d7ae (patch) | |
tree | 007c8b8d4c06c75129e934818377b7827787cf9b /lisplib.c | |
parent | 6968ea83c5bfb11b725e3ab638a66ff2681ce6f6 (diff) | |
download | txr-f98f2a73750bff9b182c74d073a9c78e5316d7ae.tar.gz txr-f98f2a73750bff9b182c74d073a9c78e5316d7ae.tar.bz2 txr-f98f2a73750bff9b182c74d073a9c78e5316d7ae.zip |
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.
Diffstat (limited to 'lisplib.c')
-rw-r--r-- | lisplib.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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[] = { |