From 5a154a6651a791d8dad7b0c93aa5d703b195b739 Mon Sep 17 00:00:00 2001
From: "Paul A. Patience" <paul@apatience.com>
Date: Sun, 12 Sep 2021 20:13:47 -0400
Subject: 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.
---
 stdlib/compiler.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3