o'clock ( timestamp n -- timestamp' )

Vocabulary

calendar

Inputs

timestamp	an object
n	an object

Outputs

timestamp'

an object

Definition

USING: accessors kernel ;

IN: calendar

: o'clock ( timestamp n -- timestamp' )
    [ midnight ] dip >>hour ;