(days-in-month) ( year month -- n )

Vocabulary

calendar

Inputs

year	an object
month	an object

Outputs

n

an object

Definition

USING: calendar.private kernel sequences ;

IN: calendar

: (days-in-month) ( year month -- n )
    [ 2 = ] [ drop leap-year? 29 28 ? ] [ nip day-counts nth ]
    1if ;