patch c074e25fdf925ae76c798e8303f50d1509e2ac79
Author: Enrique D. Bosch <presidev@AT@gmail.com>
Date:   Thu Sep  7 00:08:44 CEST 2017
  * Simplify or, and procs
diff -rN -u old-idlebiff/idlebiff new-idlebiff/idlebiff
--- old-idlebiff/idlebiff	2024-05-19 01:51:39.667815443 +0200
+++ new-idlebiff/idlebiff	2024-05-19 01:51:39.671815451 +0200
@@ -27,8 +27,8 @@
 package require tooltip
 
 namespace path ::tcl::mathop
-proc and args { set a 1; foreach b $args { set a [ expr $a && $b ]; if { !$a } { return 0 } }; return $a }
-proc or args { set a 0; foreach b $args { set a [ expr $a || $b ]; if { $a } { return 1 } }; return $a }
+proc or args { foreach x $args { if { $x } { return 1 } }; return 0 }
+proc and args { foreach x $args { if { $x } continue  { return 0 } }; return 1 }
 
 namespace eval static \
 {