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