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

1.0/0.0 => 1/0.

db4
Slava Pestov 2009-04-13 19:48:08 -05:00
parent 0fda643ab1
commit 0ffd43e2e3
8 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/db/tuples/tuples-tests.factor
View File

@ -411,7 +411,7 @@ TUPLE: exam id name score ;
T{ exam f 4 "Cartman" 41 } T{ exam f 4 "Cartman" 41 }
} }
] [ ] [
T{ exam f T{ interval f { 2 t } { 1.0/0.0 f } } } select-tuples T{ exam f T{ interval f { 2 t } { 1/0. f } } } select-tuples
] unit-test ] unit-test
[ [
@ -419,7 +419,7 @@ TUPLE: exam id name score ;
T{ exam f 1 "Kyle" 100 } T{ exam f 1 "Kyle" 100 }
} }
] [ ] [
T{ exam f T{ interval f { -1.0/0.0 t } { 2 f } } } select-tuples T{ exam f T{ interval f { -1/0. t } { 2 f } } } select-tuples
] unit-test ] unit-test
[ [
@ -430,7 +430,7 @@ TUPLE: exam id name score ;
T{ exam f 4 "Cartman" 41 } T{ exam f 4 "Cartman" 41 }
} }
] [ ] [
T{ exam f T{ interval f { -1.0/0.0 t } { 1/0. f } } } select-tuples T{ exam f T{ interval f { -1/0. t } { 1/0. f } } } select-tuples
] unit-test ] unit-test
[ [

2
basis/furnace/cache/cache.factor vendored
View File

@ -22,7 +22,7 @@ server-state f
: expire-state ( class -- ) : expire-state ( class -- )
new new
-1.0/0.0 millis [a,b] >>expires -1/0. millis [a,b] >>expires
delete-tuples ; delete-tuples ;
TUPLE: server-state-manager < filter-responder timeout ; TUPLE: server-state-manager < filter-responder timeout ;

4
basis/math/functions/functions-tests.factor
View File

@ -22,9 +22,9 @@ IN: math.functions.tests
[ t ] [ e pi i* ^ imaginary-part -0.00001 0.00001 between? ] unit-test [ t ] [ e pi i* ^ imaginary-part -0.00001 0.00001 between? ] unit-test
[ t ] [ 0 0 ^ fp-nan? ] unit-test [ t ] [ 0 0 ^ fp-nan? ] unit-test
[ 1.0/0.0 ] [ 0 -2 ^ ] unit-test [ 1/0. ] [ 0 -2 ^ ] unit-test
[ t ] [ 0 0.0 ^ fp-nan? ] unit-test [ t ] [ 0 0.0 ^ fp-nan? ] unit-test
[ 1.0/0.0 ] [ 0 -2.0 ^ ] unit-test [ 1/0. ] [ 0 -2.0 ^ ] unit-test
[ 0 ] [ 0 3.0 ^ ] unit-test [ 0 ] [ 0 3.0 ^ ] unit-test
[ 0 ] [ 0 3 ^ ] unit-test [ 0 ] [ 0 3 ^ ] unit-test

2
basis/math/libm/libm-docs.factor
View File

@ -6,7 +6,7 @@ ARTICLE: "math.libm" "C standard library math functions"
$nl $nl
"They can be called directly, however there is little reason to do so, since they only implement real-valued functions, and in some cases place restrictions on the domain:" "They can be called directly, however there is little reason to do so, since they only implement real-valued functions, and in some cases place restrictions on the domain:"
{ $example "USE: math.functions" "2 acos ." "C{ 0.0 1.316957896924817 }" } { $example "USE: math.functions" "2 acos ." "C{ 0.0 1.316957896924817 }" }
{ $unchecked-example "USE: math.libm" "2 facos ." "0.0/0.0" } { $unchecked-example "USE: math.libm" "2 facos ." "0/0." }
"Trigonometric functions:" "Trigonometric functions:"
{ $subsection fcos } { $subsection fcos }
{ $subsection fsin } { $subsection fsin }

2
basis/wrap/wrap.factor
View File

@ -30,7 +30,7 @@ SYMBOL: line-ideal
{ [ lines>> car 1list? ] [ top-fits? ] } 1|| ; { [ lines>> car 1list? ] [ top-fits? ] } 1|| ;
:: min-by ( seq quot -- elt ) :: min-by ( seq quot -- elt )
f 1.0/0.0 seq [| key value new | f 1/0. seq [| key value new |
new quot call :> newvalue new quot call :> newvalue
newvalue value < [ new newvalue ] [ key value ] if newvalue value < [ new newvalue ] [ key value ] if
] each drop ; inline ] each drop ; inline

2
core/math/floats/floats-tests.factor
View File

@ -56,8 +56,6 @@ unit-test
[ t ] [ 0.0 zero? ] unit-test [ t ] [ 0.0 zero? ] unit-test
[ t ] [ -0.0 zero? ] unit-test [ t ] [ -0.0 zero? ] unit-test
! [ f ] [ 0.0/0.0 0.0/0.0 number= ] unit-test
[ 0 ] [ 1/0. >bignum ] unit-test [ 0 ] [ 1/0. >bignum ] unit-test
[ t ] [ 64 [ 2^ 0.5 * ] map [ < ] monotonic? ] unit-test [ t ] [ 64 [ 2^ 0.5 * ] map [ < ] monotonic? ] unit-test

2
core/math/integers/integers.factor
View File

@ -122,7 +122,7 @@ M: bignum (log2) bignum-log2 ;
2drop 0.0 2drop 0.0
] [ ] [
dup zero? [ dup zero? [
2drop 1.0/0.0 2drop 1/0.
] [ ] [
pre-scale pre-scale
/f-loop over odd? /f-loop over odd?

2
extra/benchmark/raytracer/raytracer.factor
View File

@ -53,7 +53,7 @@ C: <sphere> sphere
: sphere-t ( b d -- t ) : sphere-t ( b d -- t )
-+ dup 0.0 < -+ dup 0.0 <
[ 2drop 1.0/0.0 ] [ [ [ 0.0 > ] keep ] dip ? ] if ; inline [ 2drop 1/0. ] [ [ [ 0.0 > ] keep ] dip ? ] if ; inline
: sphere-b&v ( sphere ray -- b v ) : sphere-b&v ( sphere ray -- b v )
[ sphere-v ] [ nip ] 2bi [ sphere-v ] [ nip ] 2bi