Version 1 of unless

Updated 2004-05-03 23:38:42

proc unless {condition body} {

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

example:

    unless {$tcl_version >= 8.4} {
        error "package requires version 8.4 or greater of Tcl"
    }