same-or-next-business-day ( timestamp -- timestamp' )

Vocabulary

calendar

Inputs

timestamp

an object

Outputs

timestamp'

an object

Definition

USING: combinators kernel ;

IN: calendar

: same-or-next-business-day ( timestamp -- timestamp' )
    dup day-of-week
    { { 0 [ monday ] } { 6 [ 2 days time+ ] } [ drop ] } case ;