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

«0.0 1.0 ^» was returning 0 instead of 0.0

db4
Joe Groff 2009-06-11 17:47:52 -05:00
parent 54a1a8f326
commit a2640672d7
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,6 +22,7 @@ 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
[ 0.0 ] [ 0.0 1.0 ^ ] unit-test
[ 1/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 -2.0 ^ ] unit-test [ 1/0. ] [ 0 -2.0 ^ ] unit-test

2
basis/math/functions/functions.factor
View File

@ -89,7 +89,7 @@ PRIVATE>
: ^ ( x y -- z ) : ^ ( x y -- z )
{ {
{ [ over zero? ] [ nip 0^ ] } { [ over 0 = ] [ nip 0^ ] }
{ [ dup integer? ] [ integer^ ] } { [ dup integer? ] [ integer^ ] }
{ [ 2dup real^? ] [ fpow ] } { [ 2dup real^? ] [ fpow ] }
[ ^complex ] [ ^complex ]