diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-02-05 07:15:23 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-02-05 07:15:23 -0800 |
| commit | 00a793530e0386cfbe29670a8224f5e82897b283 (patch) | |
| tree | 4f59dea5bd251ab00455d73c816a6518cbcc208a /tests | |
| parent | 4cddc02c7c2993ef7f942c200a6ec5408947cddb (diff) | |
| download | txr-00a793530e0386cfbe29670a8224f5e82897b283.tar.gz txr-00a793530e0386cfbe29670a8224f5e82897b283.tar.bz2 txr-00a793530e0386cfbe29670a8224f5e82897b283.zip | |
matcher: don't set flag in last case.
The last case in a match-case or lambda-match does not need to
set the matched flag, since nothing tests it.
* share/txr/stdlib/match.tl (match-case): Rename some local
variables for consistency with lambda-match. Change the
counter from 1, so we can then compare the index of the last
case to the length and avoid emitting the set.
(expand-lambda-match): Same optimization.
Diffstat (limited to 'tests')
0 files changed, 0 insertions, 0 deletions