day-abbrev<= ( timestamp day -- timestamp' )

Vocabulary

zoneinfo

Inputs

timestamp	an object
day	an object

Outputs

timestamp'

an object

Definition

USING: calendar combinators ;

IN: zoneinfo

: day-abbrev<= ( timestamp day -- timestamp' )
    {
        { "Sun" [ sunday<= ] }
        { "Mon" [ monday<= ] }
        { "Tue" [ tuesday<= ] }
        { "Wed" [ wednesday<= ] }
        { "Thu" [ thursday<= ] }
        { "Fri" [ friday<= ] }
        { "Sat" [ saturday<= ] }
        [ unknown-day-abbrev ]
    } case ;