false-recover ( effect -- quot )

Vocabulary

inverse

Inputs

effect

an object

Outputs

quot

an object

Definition

USING: accessors generalizations kernel sequences ;

IN: inverse

: false-recover ( effect -- quot )
    in>> length [ ndrop f ] curry [ recover-fail ] curry ;