Version 0 of unless

Updated 2004-05-03 23:36:01

proc unless {condition body} {

        uplevel [list if "!($condition)" $body]
    }