diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-11-04 16:19:40 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-11-04 16:19:40 +0000 |
| commit | 0ad09054cee5b6f2bd578e464f1e53d2389a798d (patch) | |
| tree | c10765f6a0ec2e6cdd8c317b9d0b6d884e036341 /src/interp/newfort.boot.pamphlet | |
| parent | 3df098b4ccc05dabb203253a01e3f7e85321d499 (diff) | |
| download | open-axiom-0ad09054cee5b6f2bd578e464f1e53d2389a798d.tar.gz | |
* Makefile.pamphlet (record.$(FASLEXT)): New rule.
(newfort.$(FASLEXT)): Likewise.
(<<record.clisp>>): Remove.
(<<newfort.clisp>>): Likewise.
* newfort.boot.pamphlet: Push into package "BOOT".
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)] |