deconstruct-pred ( class -- quot )

Vocabulary

inverse

Inputs

class

an object

Outputs

quot

an object

Definition

USING: classes kernel ;

IN: inverse

: deconstruct-pred ( class -- quot )
    predicate-def [ dupd call assure ] curry ;