diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-28 19:39:22 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-28 19:39:22 -0800 |
commit | 1b33bf2abdf88071ff38c3f2c25ba57433257a2a (patch) | |
tree | 74bcab46c6a8e4a471b92abec42db0af9f70f01e /lex.yy.c.shipped | |
parent | 21babe718d57fda5d036458f96097075c21b2ab7 (diff) | |
download | txr-1b33bf2abdf88071ff38c3f2c25ba57433257a2a.tar.gz txr-1b33bf2abdf88071ff38c3f2c25ba57433257a2a.tar.bz2 txr-1b33bf2abdf88071ff38c3f2c25ba57433257a2a.zip |
matcher: remove duplicate variables in one place.
* share/txr/stdlib/match.tl (compiled-match get-var-exprs):
method get-var-exprs removed. This is only used in one place,
which is going away. Actually, the value is not even used; it
is discarded.
(compiled-match get-vars): This method now passes the list of
variables thorugh uniq. The logic of get-guard-values is
pulled into a local function, since get-guard-values has only
one caller now.
(get-guard-values): Function removed.
(compile-or-match): Removing all-var-exprs variable
and all that calculation of the unique names, as well as the
extra match-guard which duplicates those names pointlessly.
Diffstat (limited to 'lex.yy.c.shipped')
0 files changed, 0 insertions, 0 deletions