slot-array-quot ( slots -- quot )

Vocabulary

compiler.cfg.def-use.private

Inputs

slots

an object

Outputs

quot

an object

Definition

USING: arrays combinators kernel quotations sequences
sequences.generalizations slots ;

IN: compiler.cfg.def-use.private

: slot-array-quot ( slots -- quot )
    [ reader-word 1quotation ] map dup length {
        { 0 [ drop [ drop f ] ] }
        { 1 [ first [ 1array ] compose ] }
        { 2 [ first2 [ bi 2array ] 2curry ] }
        [ [ [ cleave ] curry ] dip [ narray ] curry compose ]
    } case ;