construct-bytes ( args -- obj )

Vocabulary

pickle.private

Inputs

args

an object

Outputs

obj

an object

Definition

USING: byte-arrays combinators kernel sequences ;

IN: pickle.private

: construct-bytes ( args -- obj )
    dup length
    { { 0 [ drop B{ } clone ] } { 1 [ first >byte-array ] } }
    case ;