diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-08-19 11:47:12 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-08-19 11:47:12 -0700 |
| commit | f374abcd23a63f628a9ec7b84e2d797d3fc28342 (patch) | |
| tree | 811149d630ffaefaa8be464465f660ba9287fc98 /tests/011 | |
| parent | 46be04f43613e08af5015485ff19bb79af1d3feb (diff) | |
| download | txr-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 'tests/011')
| -rw-r--r-- | tests/011/patmatch.tl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index c6b67614..09d294a8 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -514,13 +514,13 @@ (:odd 1 :pair 2 3 :even 4 :pair 5 6)) (mtest - (must-match (@a @b) '(1 2) (list a b)) (1 2) - (must-match (@a @b) '(1 2 3) (list a b)) :error) + (match (@a @b) '(1 2) (list a b)) (1 2) + (match (@a @b) '(1 2 3) (list a b)) :error) (mtest - (must-match-case 42) :error - (must-match-case 42 (@a a)) 42 - (must-match-case '(1 2) ((@a) a)) :error) + (match-ecase 42) :error + (match-ecase 42 (@a a)) 42 + (match-ecase '(1 2) ((@a) a)) :error) (compile-only (eval-only |