diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-12 04:12:20 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-12 04:12:20 +0000 |
commit | 2583edf6b172ea98d700773df5f51761aee01692 (patch) | |
tree | 8df49363ad97afcdeaca8a2dd0f18eb778849b22 /src/interp/newfort.boot | |
parent | dd14d434d1d7d06cd90a5a8a0fd1bef6cfffda8f (diff) | |
download | open-axiom-2583edf6b172ea98d700773df5f51761aee01692.tar.gz |
Clean symbol vs. character vs. string confusion
Diffstat (limited to 'src/interp/newfort.boot')
-rw-r--r-- | src/interp/newfort.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot index e83ce7c7..203345e9 100644 --- a/src/interp/newfort.boot +++ b/src/interp/newfort.boot @@ -337,7 +337,7 @@ fortError1 u == fortError(u,v) == $fortError := "t" - msg := strconc(" ",STRINGIMAGE u); + msg := strconc('" ",STRINGIMAGE u); sayErrorly("Fortran translation error",msg) mathPrint v @@ -844,7 +844,7 @@ fortPreRoot e == fix2FortranFloat e == -- Return a Fortran float for a given integer. $fortranPrecision = "double" => strconc(STRINGIMAGE(e),".0D0") - strconc(STRINGIMAGE(e),".") + strconc(STRINGIMAGE(e),'".") isFloat e == FLOATP(e) or string?(e) and FIND(char ".",e) @@ -860,7 +860,7 @@ checkPrecision e == ePos => SUBSEQ(e,period+1,ePos) period+1 < # e => SUBSEQ(e,period+1) "0" - strconc(iPart,rPart,"D",expt) + strconc(iPart,rPart,'"D",expt) e ----------------- segment.boot ----------------------- |