diff options
| author | Paul A. Patience <paul@apatience.com> | 2021-09-12 20:13:47 -0400 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-09-14 00:39:43 -0700 |
| commit | 3da0f278cbb4dfc37fc8c994cadca7120ecfb824 (patch) | |
| tree | 535d100cc4dcaf4393a29d5e6b3b44eb6939eca1 /stdlib/compiler.tl | |
| parent | 7c174401f4926683d26e5b638b95d8956cfdb211 (diff) | |
| download | txr-3da0f278cbb4dfc37fc8c994cadca7120ecfb824.tar.gz txr-3da0f278cbb4dfc37fc8c994cadca7120ecfb824.tar.bz2 txr-3da0f278cbb4dfc37fc8c994cadca7120ecfb824.zip | |
compiler: reduce single-arg logior and logand.
* stdlib/compiler.tl (compiler comp-fun-form): Reduce
single-argument logior and logand calls to just the argument.
Diffstat (limited to 'stdlib/compiler.tl')
| -rw-r--r-- | stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index e2301296..7756e98e 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -1303,7 +1303,7 @@ (set form ^(,bin ,a ,b))) ((- @a) (set form ^(neg ,a))) - ((@(or identity + * min max) @a) + ((@(or identity + * min max logior logand) @a) (return-from comp-fun-form me.(compile oreg env a))))) (when (plusp olev) |