diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-15 07:12:15 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-15 07:12:15 -0800 |
| commit | 7667fc940e6ee797770ba966d4d6df74a1e6a4e6 (patch) | |
| tree | cff3c075a3b2055b82d14336e120d8b3db26d3c5 /tests/016 | |
| parent | 68ac0d194820fe9091fb4720b74ed1782767daee (diff) | |
| download | txr-7667fc940e6ee797770ba966d4d6df74a1e6a4e6.tar.gz txr-7667fc940e6ee797770ba966d4d6df74a1e6a4e6.tar.bz2 txr-7667fc940e6ee797770ba966d4d6df74a1e6a4e6.zip | |
matcher: use flag to eliminate block.
* share/txr/stdlib/match.tl (compile-all-match): We use a flag
to break out of the loop instead of (return). The loop's block is
thereby later eliminated by the compiler. For this we
re-purpose the same all-match-p-var symbol.
Diffstat (limited to 'tests/016')
0 files changed, 0 insertions, 0 deletions