backtalk ( value object -- )

Vocabulary

models.illusion

Inputs

value	an object
object	an object

Outputs

None

Definition

USING: accessors combinators inverse kernel models ;

IN: models.illusion

: backtalk ( value object -- )
    [ quot>> [undo] ( a -- b ) call-effect ] [ model>> ] bi
    set-model ;