duration+ ( duration1 duration2 -- duration3 )

Vocabulary

calendar

Inputs

duration1	an object
duration2	an object

Outputs

duration3

an object

Definition

USING: accessors combinators kernel math ;

IN: calendar

: duration+ ( duration1 duration2 -- duration3 )
    {
        [ [ year>> ] bi@ + ]
        [ [ month>> ] bi@ + ]
        [ [ day>> ] bi@ + ]
        [ [ hour>> ] bi@ + ]
        [ [ minute>> ] bi@ + ]
        [ [ second>> ] bi@ + ]
    } 2cleave <duration> ; inline