day<= ( timestamp quot -- timestamp' )

Vocabulary

calendar

Inputs

timestamp	an object
quot	an object

Outputs

timestamp'

an object

Definition

USING: kernel math.order ;

IN: calendar

: day<= ( timestamp quot -- timestamp' )
    over clone [ call dup ] dip after? [ -7 days time+ ] when ;
    inline