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

clean up the end of the easter word

Doug Coleman 2009-11-20 04:27:00 -06:00
parent 26a9852b8c
commit c977887521
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/calendar/calendar.factor
View File

@ -143,8 +143,7 @@ GENERIC: easter ( obj -- obj' )
32 2 e * + 2 i * + h - k - 7 mod :> l 32 2 e * + 2 i * + h - k - 7 mod :> l
a 11 h * + 22 l * + 451 /i :> m a 11 h * + 22 l * + 451 /i :> m
h l + 7 m * - 114 + 31 /mod 1 + :> ( month day ) h l + 7 m * - 114 + 31 /mod 1 + ;
month day ;
M: integer easter ( year -- timestamp ) M: integer easter ( year -- timestamp )
dup easter-month-day <date> ; dup easter-month-day <date> ;