diff options
Diffstat (limited to 'src/interp/pf2sex.boot')
| -rw-r--r-- | src/interp/pf2sex.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/pf2sex.boot b/src/interp/pf2sex.boot index bdc6b70f..58e11767 100644 --- a/src/interp/pf2sex.boot +++ b/src/interp/pf2sex.boot @@ -385,7 +385,7 @@ float2Sex num == dotIndex => SUBSEQ(mantPart, dotIndex+1) '"0" bfForm := MAKE_-FLOAT(intPart, READ_-FROM_-STRING fracPartString, - LENGTH fracPartString, expPart) + # fracPartString, expPart) $useBFasDefault => [., frac, :exp] := bfForm [["$elt", intNewFloat(), 'float], frac, exp, 10] |