diff options
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) |