days. ( year month -- )

Vocabulary

calendar.format.private

Inputs

year	an object
month	an object

Outputs

None

Definition

USING: calendar calendar.format io kernel math ranges sequences
;

IN: calendar.format.private

: days. ( year month -- )
    [ 1 (day-of-week) dup [ "   " write ] times ]
    [ (days-in-month) ] 2bi [1..b]
    [ [ day. ] [ + 7 mod zero? [ nl ] [ bl ] if ] bi ] with each
    nl ;