<action> ( model quot -- action-model )

Vocabulary

models.combinators

Inputs

model	an object
quot	an object

Outputs

action-model

an object

Definition

USING: accessors arrays kernel ;

IN: models.combinators

: <action> ( model quot -- action-model )
    [ 1array action <multi-model> ] dip >>quot
    dup f <action-value> >>value value>> ;