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 ;