diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-02-06 19:14:21 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-02-06 19:14:21 -0800 |
commit | acdc6a768282aeb3d0e592481952233b08b3b838 (patch) | |
tree | 447e8f7096e0867092bedca86096fcb4e7ec06a9 /tests | |
parent | 777eb4e599dd13797fbf7f458717a3ceff71b94d (diff) | |
download | txr-acdc6a768282aeb3d0e592481952233b08b3b838.tar.gz txr-acdc6a768282aeb3d0e592481952233b08b3b838.tar.bz2 txr-acdc6a768282aeb3d0e592481952233b08b3b838.zip |
matcher: remove @(op ...) pattern.
All he typical uses of this are better served by the new
predicate match. If op is really needed, it can be used with
the DWIM form of the predicate, as in @[(op ...) ...].
* share/txr/stdlib/match.tl (compile-op-match): Function
removed.
(compile-match): Remove op case.
* tests/011/patmatch.tl: Keep op test cases by converting them
to predicate test cases.
* txr.1: Documentation removed.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/011/patmatch.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index d30f5aec..8c8aae59 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -83,8 +83,8 @@ (test (when-match (@(oddp) @(all @x)) '(2 (1 2 . 3)) x) nil) (test (if-match @(or (@x 3 3) (1 @x 3) (1 2 @x)) '(1 2 3) x) 2) -(test (if-match @(op <= 10 @1 13) 11 :yes :no) :yes) -(test (when-match @(as x @(op <= 10 @1 13)) 11 x) 11) +(test (if-match @(<= 10 @a 13) 11 :yes :no) :yes) +(test (when-match @(as x @(<= 10 @a 13)) 11 x) 11) (test (when-match (@(evenp) @(oddp @x)) '(2 3) x) 3) (test (when-match @(<= 1 @x 10) 4 x) 4) (test (when-match @(@d (chr-digit @c)) #\5 (list d c)) (5 #\5)) |