start-of-quarter ( timestamp -- timestamp' )

Vocabulary

calendar

Inputs

timestamp

an object

Outputs

timestamp'

an object

Definition

USING: accessors kernel math ;

IN: calendar

: start-of-quarter ( timestamp -- timestamp' )
    [ start-of-day ] [ quarter 1 - 3 * ] bi >>month ; inline