forget-predicate ( class -- )

Vocabulary

classes.private

Inputs

class

an object

Outputs

None

Definition

USING: classes definitions kernel sequences words ;

IN: classes.private

: forget-predicate ( class -- )
    dup predicate-def dup length 1 = [
        first [ nip ] [ "predicating" word-prop = ] 2bi
        [ forget ] [ drop ] if
    ] [ 2drop ] if ;