diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-28 19:18:30 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-28 19:18:30 -0800 |
commit | 21babe718d57fda5d036458f96097075c21b2ab7 (patch) | |
tree | af0296b4c22ef4a587a5d1d8e5f07ab027e48017 /tests/012/seq.expected | |
parent | 8e887d2395466c4169faed88822165baa3b21614 (diff) | |
download | txr-21babe718d57fda5d036458f96097075c21b2ab7.tar.gz txr-21babe718d57fda5d036458f96097075c21b2ab7.tar.bz2 txr-21babe718d57fda5d036458f96097075c21b2ab7.zip |
matcher: rid compiled-match of test-expr and vars.
* share/txr/stdlib/match.tl (match-vars): Get rid of base,
since only match-guard would need it now.
(match-guard): Move match-vars methods and slots into this
structure.
(compiled-match): No longer inherits match-vars, so no
longer has vars and var-exprs slots. Also, slot test-expr
removed.
(compiled-match :postinit): Removed.
(compiled-match {get-vars, get-var-exprs}): Do not prepend
vars and var-exprs which no longer exist.
(compile-struct-match, compile-vec-match, compile-range-match,
compile-cons-structure, compile-let-match,
compile-hash-match): Get rid of vars, var-exprs and test-expr.
These are just causing duplicate variables to exist.
(compile-var-match): Convert necessary test-expr and vars into
match-guard object put into guard-chain.
(compile-atom-match, compile-or-match): Get rid of test-expr.
(compile-op-match, compile-predicate-match): Get rid of stray
reference to test-expr.
(compile-dwim-predicate-match): Move obj-var test into guard.
Get rid of vars, var-exprs and test-expr.
(compile-loop-match): Move vars and and test expression into
a second guard object, so there are now guard0 and guard1.
(compile-and-match): Get rid of all-var-exprs local variable
and its compuation, vars, var-exprs and test-expr.
(compile-not-match): Get rid of test-expr and empty vars.
(compile-hash-match):
Diffstat (limited to 'tests/012/seq.expected')
0 files changed, 0 insertions, 0 deletions