data-map ( ins outs -- quot )

Vocabulary

alien.data.map.private

Inputs

ins	an object
outs	an object

Outputs

quot

an object

Definition

USING: combinators generalizations kernel sequences
sequences.generalizations ;

IN: alien.data.map.private

MACRO: data-map ( ins outs -- quot )
    2dup [
        [ [ '[ _ >param ] ] map '[ _ spread ] ]
        [ length dup '[ _ ndup _ nmin-length ] compose ] bi
    ] [ [ '[ _ alloc-param ] ] map '[ _ cleave ] ] bi* compose
    [data-map] ;