construct-array ( args -- obj )

Vocabulary

pickle.private

Inputs

args

an object

Outputs

obj

an object

Definition

USING: combinators kernel sequences ;

IN: pickle.private

: construct-array ( args -- obj )
    dup length {
        { 4 [ unclip construct ] }
        { 3 [ first3 construct-array-extra ] }
        { 2 [ first2 construct-array-simple ] }
    } case ;