[data-map] ( ins outs param-quot -- quot )

Vocabulary

alien.data.map.private

Inputs

ins	an object
outs	an object
param-quot	an object

Outputs

quot

an object

Definition

USING: accessors fry generalizations kernel make math sequences
sequences.generalizations ;

IN: alien.data.map.private

:: [data-map] ( ins outs param-quot -- quot )
    ins length :> #ins outs length :> #outs #ins #outs +
    :> #params [
        param-quot % [
            [
                [ ins , \ unpack-params , \ @ , ] [ ] make ,
                #outs , \ ndip , outs , \ pack-params ,
            ] [ ] make , #params , \ neach ,
        ] [ ] make , #outs , \ nkeep , [ orig>> ] , #outs ,
        \ napply ,
    ] [ ] make fry \ call suffix ;