[matches?] ( quot -- undoes?-quot )

Vocabulary

inverse

Inputs

quot

an object

Outputs

undoes?-quot

an object

Definition

USING: kernel stack-checker ;

IN: inverse

: [matches?] ( quot -- undoes?-quot )
    [undo] dup infer [ true-out ] [ false-recover ] bi curry ;