diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-11 02:25:14 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-11 02:25:14 +0000 |
| commit | d2412069e4fc43a4bc6cc28ce4c57e02f8baee41 (patch) | |
| tree | 06aea77245295f6836dab0ff3b473f3250a6b0f8 /src/interp/newfort.boot | |
| parent | 583976f30783abbf02f64abca8796d5a28111b76 (diff) | |
| download | open-axiom-d2412069e4fc43a4bc6cc28ce4c57e02f8baee41.tar.gz | |
fix fallout from previous commit
Diffstat (limited to 'src/interp/newfort.boot')
| -rw-r--r-- | src/interp/newfort.boot | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot index 5f66a94b..c115dfcf 100644 --- a/src/interp/newfort.boot +++ b/src/interp/newfort.boot @@ -363,6 +363,13 @@ fortexp0 x == [t,:f] := f l := [t,:l] NREVERSE ['"...",:l] + +++ This formating routine is essentially used to print +++ values/expreions used to instantiate constructors. +formatAsFortranExpresion x == + $fortInts2Floats := false + fortranCleanUp exp2Fort1 segment fortPre outputTran x + dispfortexp x == if atom(x) or x is [op,:.] and not object2Identifier op in |