fold* ( model oldmodel quot -- model )

Vocabulary

models.combinators

Inputs

model	an object
oldmodel	an object
quot	an object

Outputs

model

an object

Definition

USING: accessors arrays kernel ;

IN: models.combinators

: fold* ( model oldmodel quot -- model )
    over [ [ 2array new-fold-model ] dip >>quot ] dip
    [ >>base ] [ value>> >>value ] bi ;