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

Fix typo and update a combinator usage in calendar

db4
Aaron Schaefer 2009-04-01 22:03:45 -04:00
parent ca9fb1fcf1
commit ed9a63311c
2 changed files with 2 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

@ -348,7 +348,7 @@ M: duration time-
#! good for any date since October 15, 1582 #! good for any date since October 15, 1582
[ [
dup 2 <= [ [ 1- ] [ 12 + ] bi* ] when dup 2 <= [ [ 1- ] [ 12 + ] bi* ] when
[ dup [ 4 /i + ] keep [ 100 /i - ] keep 400 /i + ] dip [ dup [ 4 /i + ] [ 100 /i - ] [ 400 /i + ] tri ] dip
[ 1+ 3 * 5 /i + ] keep 2 * + [ 1+ 3 * 5 /i + ] keep 2 * +
] dip 1+ + 7 mod ; ] dip 1+ + 7 mod ;

2
basis/math/primes/factors/factors.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2007-2009 Samuel Tardieu. ! Copyright (C) 2007-2009 Samuel Tardieu.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays combinators kernel make math math.fucntions math.primes sequences ; USING: arrays combinators kernel make math math.functions math.primes sequences ;
IN: math.primes.factors IN: math.primes.factors
<PRIVATE <PRIVATE