pack-params ( outs -- quot )

Vocabulary

alien.data.map.private

Inputs

outs

an object

Outputs

quot

an object

Definition

USING: fry generalizations kernel sequences
sequences.generalizations ;

IN: alien.data.map.private

MACRO: pack-params ( outs -- quot )
    [ ] [
        c-type-count nip dup
        [ [ ndip POSTPONE: _ ] dip set-firstn ] 3curry
    ] reduce fry [ call ] compose ;