check-instance ( obj class -- obj )

Vocabulary

classes

Inputs

obj	an object
class	an object

Outputs

obj

an object

Definition

USING: kernel ;

IN: classes

: check-instance ( obj class -- obj )
    [ dupd instance? ] keep [ not-an-instance ] curry unless ;
    inline