construct-duration ( args -- obj )

Vocabulary

pickle.private

Inputs

args

an object

Outputs

obj

an object

Definition

USING: calendar kernel math sequences ;

IN: pickle.private

: construct-duration ( args -- obj )
    [ 0 0 ] dip
    [ first 0 0 ] [ second ] [ third 1000000 / + ] tri
    <duration> ;