Version 2 of unless

Updated 2004-05-03 23:39:25

proc unless {condition body} {

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

example:

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