month-header. ( year month -- )

Vocabulary

calendar.format.private

Inputs

year	an object
month	an object

Outputs

None

Definition

USING: calendar.english kernel math.parser sequences ;

IN: calendar.format.private

: month-header. ( year month -- )
    [ number>string ] [ month-name ] bi* swap " " glue
    20 center. ;