diff options
Diffstat (limited to 'src/interp/newfort.boot.pamphlet')
| -rw-r--r-- | src/interp/newfort.boot.pamphlet | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/interp/newfort.boot.pamphlet b/src/interp/newfort.boot.pamphlet index b5720292..dea2a580 100644 --- a/src/interp/newfort.boot.pamphlet +++ b/src/interp/newfort.boot.pamphlet @@ -46,6 +46,9 @@ <<*>>= <<license>> +import '"macros" +)package "BOOT" + --% Translation of Expression to FORTRAN assignment2Fortran1(name,e) == $fortError : fluid := nil @@ -582,7 +585,7 @@ indentFortLevel(i) == $maximumFortranExpressionLength := $maximumFortranExpressionLength -2*i $fortIndent := $fortIndent + 2*i -changeExprLength(i) ==> +changeExprLength(i) == $maximumFortranExpressionLength := $maximumFortranExpressionLength + i fortFormatDo(var,lo,hi,incr,lab) == @@ -681,7 +684,7 @@ nameLen n ==> +/[1+LENGTH(u) for u in n] fortFormatTypes(typeName,names) == - null names => return() + null names => return nil $fortError : fluid := nil $fortranSegment : fluid := nil $fortInts2Floats : fluid := nil @@ -729,7 +732,7 @@ fortFormatCharacterTypes(names) == fortFormatIntrinsics(l) == $fortError : fluid := nil - null l => return() + null l => return nil displayLines fortran2Lines ['"INTRINSIC ",:addCommas(l)] |