steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

un-private a word

db4
Doug Coleman 2008-09-02 01:52:44 -05:00
parent 731bd1c88a
commit 3a3b5005f6
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/calendar/calendar.factor
View File

@ -346,10 +346,8 @@ GENERIC: days-in-year ( obj -- n )
M: integer days-in-year ( year -- n ) leap-year? 366 365 ? ; M: integer days-in-year ( year -- n ) leap-year? 366 365 ? ;
M: timestamp days-in-year ( timestamp -- n ) year>> days-in-year ; M: timestamp days-in-year ( timestamp -- n ) year>> days-in-year ;
<PRIVATE
: (days-in-month) ( year month -- n ) : (days-in-month) ( year month -- n )
dup 2 = [ drop leap-year? 29 28 ? ] [ nip day-counts nth ] if ; dup 2 = [ drop leap-year? 29 28 ? ] [ nip day-counts nth ] if ;
PRIVATE>
: days-in-month ( timestamp -- n ) : days-in-month ( timestamp -- n )
>date< drop (days-in-month) ; >date< drop (days-in-month) ;