un-private a word

2008-09-02 01:52:44 -05:00 · 2008-09-02 01:52:44 -05:00 · 3a3b5005f6
parent 731bd1c88a
commit 3a3b5005f6
1 changed files with 0 additions and 2 deletions
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@ -346,10 +346,8 @@ GENERIC: days-in-year ( obj -- n )
 M: integer days-in-year ( year -- n ) leap-year? 366 365 ? ;
 M: timestamp days-in-year ( timestamp -- n ) year>> days-in-year ;

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

 : days-in-month ( timestamp -- n )
    >date< drop (days-in-month) ;