adjust-leap-year ( timestamp -- timestamp )

Vocabulary

calendar.private

Inputs

timestamp

an object

Outputs

timestamp

an object

Definition

USING: accessors calendar combinators.short-circuit kernel ;

IN: calendar.private

: adjust-leap-year ( timestamp -- timestamp )
    dup
    { [ day>> 29 = ] [ month>> 2 = ] [ leap-year? not ] } 1&&
    [ 3 >>month 1 >>day ] when ;