diff options
author | dos-reis <gdr@axiomatics.org> | 2012-05-12 03:11:52 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-05-12 03:11:52 +0000 |
commit | c849886ef096a445a65041c0e54ab02728b7b512 (patch) | |
tree | c8e791d6c78d6146c393d4e9358deb1f4aa3c725 /src/interp/newfort.boot | |
parent | d0c0f05a363c11d57c7d70baa224dccb92687ae3 (diff) | |
download | open-axiom-c849886ef096a445a65041c0e54ab02728b7b512.tar.gz |
* interp/c-util.boot: Miscellaneous cleanup.
* interp/compiler.boot: Likewise.
* interp/database.boot: Likewise.
* interp/debug.lisp: Likewise.
* interp/format.boot: Likewise.
* interp/g-timer.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/macros.lisp: Likewise.
* interp/monitor.lisp: Likewise.
* interp/msgdb.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/nlib.lisp: Likewise.
* interp/parsing.lisp: Likewise.
* interp/pf2atree.boot: Likewise.
* interp/pf2sex.boot: Likewise.
* interp/posit.boot: Likewise.
* interp/sfsfun.boot: Likewise.
* interp/util.lisp: Likewise.
Diffstat (limited to 'src/interp/newfort.boot')
-rw-r--r-- | src/interp/newfort.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot index b4d23b8a..32ece73c 100644 --- a/src/interp/newfort.boot +++ b/src/interp/newfort.boot @@ -868,8 +868,8 @@ checkPrecision e == string? e and codePoint stringChar(e,0) = 34 => e e := removeCharFromString(char " ",STRINGIMAGE e) $fortranPrecision = "double" => - iPart := subSequence(e,0,(period:=POSITION(char ".",e))+1) - expt := if ePos := POSITION(char "E",e) then subSequence(e,ePos+1) else "0" + iPart := subSequence(e,0,(period:=findChar(char ".",e))+1) + expt := if ePos := findChar(char "E",e) then subSequence(e,ePos+1) else "0" rPart := ePos => subSequence(e,period+1,ePos) period+1 < # e => subSequence(e,period+1) |