new-mapped-model ( model quot class -- mapped-model )

Vocabulary

models.combinators

Inputs

model	an object
quot	an object
class	an object

Outputs

mapped-model

an object

Definition

USING: accessors arrays kernel ;

IN: models.combinators

: new-mapped-model ( model quot class -- mapped-model )
    [ over 1array ] dip <multi-model> swap >>quot swap >>model ;