Vocabulary
zoneinfo

Inputs
timestampan object
dayan object


Outputs
timestamp'an object


Definition


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