inauguration-day ( timestamp/n -- timestamp )

Vocabulary

calendar.holidays.us

Inputs

timestamp/n

an object

Outputs

timestamp

an object

Definition

USING: accessors calendar kernel math ;

IN: calendar.holidays.us

: inauguration-day ( timestamp/n -- timestamp )
    january 20 >>day [ dup 4 neg rem + ] change-year ;