closest-monday ( timestamp -- timestamp' )

Vocabulary

calendar

Inputs

timestamp

an object

Outputs

timestamp'

an object

Definition

USING: calendar.private ;

IN: calendar

: closest-monday ( timestamp -- timestamp' ) 1 closest-day ;