diff options
Diffstat (limited to 'src/interp/sfsfun.boot')
| -rw-r--r-- | src/interp/sfsfun.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/sfsfun.boot b/src/interp/sfsfun.boot index 8118fb4b..a740f3d5 100644 --- a/src/interp/sfsfun.boot +++ b/src/interp/sfsfun.boot @@ -370,7 +370,7 @@ rPsiW(n,x) == xmin := float(FLOOR(alpha + beta*n) + 1) if n>0 then - a := MIN(0,1.0/float(n)*LOG(DOUBLE_-FLOAT_-EPSILON/MIN(1.0,x))) + a := MIN(0,1.0/float(n)*LOG($DoubleFloatPrecision/MIN(1.0,x))) c := EXP(a) if ABS(a) >= 0.001 then |