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 | 5a154a6651a791d8dad7b0c93aa5d703b195b739 (patch) | |
| tree | 535d100cc4dcaf4393a29d5e6b3b44eb6939eca1 | |
| parent | 4fc0ac2c25950ed979d4528964256eea6d73d9e8 (diff) | |
| download | txr-5a154a6651a791d8dad7b0c93aa5d703b195b739.tar.gz txr-5a154a6651a791d8dad7b0c93aa5d703b195b739.tar.bz2 txr-5a154a6651a791d8dad7b0c93aa5d703b195b739.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.
| -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) |