patch c074e25fdf925ae76c798e8303f50d1509e2ac79

Author: Enrique D. Bosch <presidev@AT@gmail.com>

Date: Thu Sep 7 00:08:44 CEST 2017

* Simplify or, and procs

--- old-idlebiff/idlebiff 2024-11-22 15:58:24.863010422 +0100

+++ new-idlebiff/idlebiff 2024-11-22 15:58:24.867010416 +0100

@@ -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 \

{