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 /share | |
| 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 'share')
| -rw-r--r-- | share/txr/stdlib/match.tl | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/share/txr/stdlib/match.tl b/share/txr/stdlib/match.tl index 8fbac8f8..a0339fab 100644 --- a/share/txr/stdlib/match.tl +++ b/share/txr/stdlib/match.tl @@ -270,12 +270,6 @@ (compile-as-atom))) (t (compile-as-atom))))) -(defun compile-op-match (op-expr obj-var var-list) - (let ((var-match (compile-var-match nil obj-var var-list))) - var-match.(add-guard-pre (new match-guard - guard-expr ^ [,op-expr ,obj-var])) - var-match)) - (defun compile-predicate-match (exp obj-var var-list) (let ((head (car exp))) (if (and (consp head) (eq (car head) 'sys:var)) @@ -561,7 +555,6 @@ (or (compile-or-match exp obj-var var-list)) (and (compile-and-match exp obj-var var-list)) (not (compile-not-match exp obj-var var-list)) - (op (compile-op-match exp obj-var var-list)) (hash (compile-hash-match exp obj-var var-list)) (rcons (compile-range-match exp obj-var var-list)) (exprs (compile-exprs-match exp obj-var var-list)) |