am ( timestamp n -- timestamp' )

Vocabulary

calendar

Inputs

timestamp	an object
n	an object

Outputs

timestamp'

an object

Definition

USING: math math.intervals ;

IN: calendar

: am ( timestamp n -- timestamp' )
    1 12 [a,b] check-interval 12 mod o'clock ;