throw-if-false ( obj what -- )

Vocabulary

cocoa.subclassing

Inputs

obj	an object
what	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: cocoa.subclassing

: throw-if-false ( obj what -- )
    swap { f 0 } member?
    [ "Failed to " prepend throw ] [ drop ] if ;