last-day-string ( timestamp string -- timestamp )

Vocabulary

zoneinfo

Inputs

timestamp	an object
string	an object

Outputs

timestamp

an object

Definition

USING: calendar combinators ;

IN: zoneinfo

: last-day-string ( timestamp string -- timestamp )
    {
        { "lastSun" [ last-sunday-of-month ] }
        { "lastMon" [ last-monday-of-month ] }
        { "lastTue" [ last-tuesday-of-month ] }
        { "lastWed" [ last-wednesday-of-month ] }
        { "lastThu" [ last-thursday-of-month ] }
        { "lastFri" [ last-friday-of-month ] }
        { "lastSat" [ last-saturday-of-month ] }
        [ unknown-last-day ]
    } case ;