diff options
Diffstat (limited to 'src/interp/pf2atree.boot')
| -rw-r--r-- | src/interp/pf2atree.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/pf2atree.boot b/src/interp/pf2atree.boot index a3ea8e70..10fb2217 100644 --- a/src/interp/pf2atree.boot +++ b/src/interp/pf2atree.boot @@ -419,15 +419,15 @@ pfSequence2Atree0(seqList, pf) == -- mantPart := -- eIndex => subSequence(num, 0, eIndex) -- num --- expPart := (eIndex => READ_-FROM_-STRING subSequence(num, eIndex+1); 0) +-- expPart := (eIndex => readLispFromString subSequence(num, eIndex+1); 0) -- dotIndex := findChar(char ".", mantPart) -- intPart := --- dotIndex => READ_-FROM_-STRING subSequence(mantPart, 0, dotIndex) --- READ_-FROM_-STRING mantPart +-- dotIndex => readLispFromString subSequence(mantPart, 0, dotIndex) +-- readLispFromString mantPart -- fracPartString := -- dotIndex => subSequence(mantPart, dotIndex+1) -- '"0" --- bfForm := MAKE_-FLOAT(intPart, READ_-FROM_-STRING fracPartString, +-- bfForm := MAKE_-FLOAT(intPart, readLispFromString fracPartString, -- # fracPartString, expPart) -- [., frac, :exp] := bfForm -- [["$elt", intNewFloat(), 'float], frac, exp, 10] |