diff options
Diffstat (limited to 'src/interp/pf2sex.boot')
| -rw-r--r-- | src/interp/pf2sex.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/pf2sex.boot b/src/interp/pf2sex.boot index 5d5bc9f8..38bb44d1 100644 --- a/src/interp/pf2sex.boot +++ b/src/interp/pf2sex.boot @@ -386,15 +386,15 @@ float2Sex num == 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) $useBFasDefault => [., frac, :exp] := bfForm |