diff options
| author | dos-reis <gdr@axiomatics.org> | 2014-11-26 17:20:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2014-11-26 17:20:30 +0000 |
| commit | f4623b771b1e798d81d1cc8d2013683371061c43 (patch) | |
| tree | 227d94e6e144cc37e10ac93da5dba2c7578d7b3c /src/interp/pf2atree.boot | |
| parent | 4cb56790e13ad56cf6926d33d6595023a70ef247 (diff) | |
| download | open-axiom-f4623b771b1e798d81d1cc8d2013683371061c43.tar.gz | |
Replace DELETE-FILE with removeFile.
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] |