last-friday ( timestamp -- timestamp' )

Vocabulary

calendar

Inputs

timestamp

an object

Outputs

timestamp'

an object

Definition

IN: calendar

: last-friday ( timestamp -- timestamp' )
    closest-friday friday< ;