diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-02-18 08:14:37 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-02-18 08:14:37 -0800 |
| commit | f2441b0b93c9ed2c4d0ca46c89f0677fc60a5a85 (patch) | |
| tree | 8beb9dae6e91be96fd2f11ad4ab39eb60a3c368c /arith.c | |
| parent | d460fe76189c477d2fca48477fc26612148c469f (diff) | |
| download | txr-f2441b0b93c9ed2c4d0ca46c89f0677fc60a5a85.tar.gz txr-f2441b0b93c9ed2c4d0ca46c89f0677fc60a5a85.tar.bz2 txr-f2441b0b93c9ed2c4d0ca46c89f0677fc60a5a85.zip | |
compiler: reduce (if (not (eq ...) ...)).
* share/txr/stdlib/compiler.tl (compiler comp-if): Recognize
the pattern (if (not (eq ...) ..), and convert to (if (neq
...) ...) and likewise for eql and equal. This is fed back to
comp-if, whereby it may be further reduced.
Diffstat (limited to 'arith.c')
0 files changed, 0 insertions, 0 deletions