diff options
Diffstat (limited to 'src/interp/pf2atree.boot')
| -rw-r--r-- | src/interp/pf2atree.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/pf2atree.boot b/src/interp/pf2atree.boot index 9f9fd30d..70b0edc6 100644 --- a/src/interp/pf2atree.boot +++ b/src/interp/pf2atree.boot @@ -428,7 +428,7 @@ pfSequence2Atree0(seqList, pf) == -- dotIndex => SUBSEQ(mantPart, dotIndex+1) -- '"0" -- bfForm := MAKE_-FLOAT(intPart, READ_-FROM_-STRING fracPartString, --- LENGTH fracPartString, expPart) +-- # fracPartString, expPart) -- [., frac, :exp] := bfForm -- [["$elt", intNewFloat(), 'float], frac, exp, 10] -- |