diff --git a/basis/math/ratios/ratios-tests.factor b/basis/math/ratios/ratios-tests.factor index 153d650914..fa78511174 100644 --- a/basis/math/ratios/ratios-tests.factor +++ b/basis/math/ratios/ratios-tests.factor @@ -95,13 +95,14 @@ unit-test [ "-10/2" string>number ] unit-test -[ -5 ] +[ f ] [ "10/-2" string>number ] unit-test -[ 5 ] +[ f ] [ "-10/-2" string>number ] unit-test + [ "33/100" ] [ "66/200" string>number number>string ] unit-test diff --git a/extra/benchmark/nbody-simd/nbody-simd.factor b/extra/benchmark/nbody-simd/nbody-simd.factor index 2797558a4b..37fb1d0ce3 100644 --- a/extra/benchmark/nbody-simd/nbody-simd.factor +++ b/extra/benchmark/nbody-simd/nbody-simd.factor @@ -20,25 +20,25 @@ SPECIALIZED-ARRAY: body [ days-per-year v*n ] [ solar-mass * ] bi* body ; inline : ( -- body ) - double-4{ 4.84143144246472090e+00 -1.16032004402742839e+00 -1.03622044471123109e-01 0.0 } + double-4{ 4.84143144246472090e00 -1.16032004402742839e00 -1.03622044471123109e-01 0.0 } double-4{ 1.66007664274403694e-03 7.69901118419740425e-03 -6.90460016972063023e-05 0.0 } 9.54791938424326609e-04 ; : ( -- body ) - double-4{ 8.34336671824457987e+00 4.12479856412430479e+00 -4.03523417114321381e-01 0.0 } + double-4{ 8.34336671824457987e00 4.12479856412430479e00 -4.03523417114321381e-01 0.0 } double-4{ -2.76742510726862411e-03 4.99852801234917238e-03 2.30417297573763929e-05 0.0 } 2.85885980666130812e-04 ; : ( -- body ) - double-4{ 1.28943695621391310e+01 -1.51111514016986312e+01 -2.23307578892655734e-01 0.0 } + double-4{ 1.28943695621391310e01 -1.51111514016986312e01 -2.23307578892655734e-01 0.0 } double-4{ 2.96460137564761618e-03 2.37847173959480950e-03 -2.96589568540237556e-05 0.0 } 4.36624404335156298e-05 ; : ( -- body ) - double-4{ 1.53796971148509165e+01 -2.59193146099879641e+01 1.79258772950371181e-01 0.0 } + double-4{ 1.53796971148509165e01 -2.59193146099879641e01 1.79258772950371181e-01 0.0 } double-4{ 2.68067772490389322e-03 1.62824170038242295e-03 -9.51592254519715870e-05 0.0 } 5.15138902046611451e-05 ; diff --git a/extra/benchmark/nbody/nbody.factor b/extra/benchmark/nbody/nbody.factor index c7ffed2bb3..256fa9ec28 100644 --- a/extra/benchmark/nbody/nbody.factor +++ b/extra/benchmark/nbody/nbody.factor @@ -19,25 +19,25 @@ TUPLE: body [ days-per-year v*n ] [ solar-mass * ] bi* body boa ; inline : ( -- body ) - double-array{ 4.84143144246472090e+00 -1.16032004402742839e+00 -1.03622044471123109e-01 } + double-array{ 4.84143144246472090e00 -1.16032004402742839e00 -1.03622044471123109e-01 } double-array{ 1.66007664274403694e-03 7.69901118419740425e-03 -6.90460016972063023e-05 } 9.54791938424326609e-04 ; : ( -- body ) - double-array{ 8.34336671824457987e+00 4.12479856412430479e+00 -4.03523417114321381e-01 } + double-array{ 8.34336671824457987e00 4.12479856412430479e00 -4.03523417114321381e-01 } double-array{ -2.76742510726862411e-03 4.99852801234917238e-03 2.30417297573763929e-05 } 2.85885980666130812e-04 ; : ( -- body ) - double-array{ 1.28943695621391310e+01 -1.51111514016986312e+01 -2.23307578892655734e-01 } + double-array{ 1.28943695621391310e01 -1.51111514016986312e01 -2.23307578892655734e-01 } double-array{ 2.96460137564761618e-03 2.37847173959480950e-03 -2.96589568540237556e-05 } 4.36624404335156298e-05 ; : ( -- body ) - double-array{ 1.53796971148509165e+01 -2.59193146099879641e+01 1.79258772950371181e-01 } + double-array{ 1.53796971148509165e01 -2.59193146099879641e01 1.79258772950371181e-01 } double-array{ 2.68067772490389322e-03 1.62824170038242295e-03 -9.51592254519715870e-05 } 5.15138902046611451e-05 ; diff --git a/extra/math/analysis/analysis-tests.factor b/extra/math/analysis/analysis-tests.factor index 1c11162a68..4475eeacd2 100644 --- a/extra/math/analysis/analysis-tests.factor +++ b/extra/math/analysis/analysis-tests.factor @@ -30,5 +30,5 @@ CONSTANT: eps .00000001 [ t ] [ 2 gammaln 1.110223024625157e-16 eps ~ ] unit-test [ t ] [ 3 gammaln 0.6931471805599456 eps ~ ] unit-test [ t ] [ 11 gammaln 15.10441257307984 eps ~ ] unit-test -[ t ] [ 9000000000000000000000000000000000000000000 gammaln 8.811521863477754e+44 eps ~ ] unit-test +[ t ] [ 9000000000000000000000000000000000000000000 gammaln 8.811521863477754e44 eps ~ ] unit-test