compute-arrow-value ( model observer -- value )

Vocabulary

models.arrow

Inputs

model	an object
observer	an object

Outputs

value

an object

Definition

USING: accessors combinators kernel ;

IN: models.arrow

: compute-arrow-value ( model observer -- value )
    [ value>> ] [ quot>> ] bi* ( old -- new ) call-effect ;
    inline