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 ] curry ] map [ spread ] curry ] [
            length dup [ [ ndup ] curry ] dip
            [ nmin-length ] curry compose compose
        ] bi
    ] [ [ [ alloc-param ] curry ] map [ cleave ] curry ] bi*
    compose [data-map] ;