summaryrefslogtreecommitdiffstats
path: root/lisplib.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-08-19 11:47:12 -0700
committerKaz Kylheku <kaz@kylheku.com>2021-08-19 11:47:12 -0700
commitf374abcd23a63f628a9ec7b84e2d797d3fc28342 (patch)
tree811149d630ffaefaa8be464465f660ba9287fc98 /lisplib.c
parent46be04f43613e08af5015485ff19bb79af1d3feb (diff)
downloadtxr-f374abcd23a63f628a9ec7b84e2d797d3fc28342.tar.gz
txr-f374abcd23a63f628a9ec7b84e2d797d3fc28342.tar.bz2
txr-f374abcd23a63f628a9ec7b84e2d797d3fc28342.zip
matcher: rename error-throwing macros.
* stdlib/match.tl (must-match): Renamed to just match. It's just when-match without the "when". (must-match-case): Renamed to match-ecase, consistent with the case -> ecase naming scheme. * lisplib.c (match_set_entries): Names updated here. * tests/011/patmatch.tl: Test cases updated. * txr.1: Names updated here. * stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'lisplib.c')
-rw-r--r--lisplib.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisplib.c b/lisplib.c
index 58de568c..f1e41547 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -882,8 +882,8 @@ static val match_set_entries(val dlt, val fun)
nil
};
val name[] = {
- lit("when-match"), lit("match-case"), lit("if-match"), lit("must-match"),
- lit("must-match-case"),
+ lit("when-match"), lit("match-case"), lit("if-match"),
+ lit("match"), lit("match-ecase"),
lit("while-match"), lit("while-match-case"), lit("while-true-match-case"),
lit("lambda-match"), lit("defun-match"), lit("defmatch"),
lit("each-match"), lit("append-matches"),