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"
    }