diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-18 06:18:02 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-18 06:18:02 -0700 |
| commit | 93cbd81f0fb5242bb93062848826bf5b6b5e9d46 (patch) | |
| tree | 06949b66eba3b6e0667b6ba652e96292b1f677c2 /genvim.txr | |
| parent | bfc81fe0cb680d95ae8fc91ec94562d2df6e12e4 (diff) | |
| download | txr-93cbd81f0fb5242bb93062848826bf5b6b5e9d46.tar.gz txr-93cbd81f0fb5242bb93062848826bf5b6b5e9d46.tar.bz2 txr-93cbd81f0fb5242bb93062848826bf5b6b5e9d46.zip | |
compiler: de-duplicate switch.
* share/txr/stdlib/compiler.tl (compiler comp-switch):
Identify duplicate cases and don't generate code for these;
patch their table entries to point to one case.
The case macros generate such code when the keys are
integers, and multiple integer keys are associated
with the same case: (caseq x ((1 2 3 4 5) ...) ((6 7) ...)).
Diffstat (limited to 'genvim.txr')
0 files changed, 0 insertions, 0 deletions