test.tcl

rename if if_old

proc if {
        condition
        block
} {
        if_old {! [expr $condition]} {
                uplevel 1 $block
        }
}

if { true } {
        puts "sanity reigns"
}

if { false } {
        puts "Human sacrifice, dogs and cats living together... mass hysteria!"
}