diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-12 15:46:25 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-12 15:46:25 +0000 |
| commit | d4221b8a648adc6bf3b44410dedd8b5e8abbeb18 (patch) | |
| tree | fa358c786e25cf1a367e453943c51b639c3c951b /src/algebra/fortran.spad.pamphlet | |
| parent | 20e1bed66399cce629d08a71ca0552ed24fef1d1 (diff) | |
| download | open-axiom-d4221b8a648adc6bf3b44410dedd8b5e8abbeb18.tar.gz | |
* algebra/asp.spad.pamphlet (Asp30): Don't name local variable as
record field.
(Asp31): Likewise.
(asp34): Likewise.
(Asp77): Likewise.
(Asp8): Likewise.
(Asp9): Likewise.
* algebra/fortran.spad.pamphlet (FortranCode): Likewise.
* algebra/moebius.spad.pamphlet (MoebiusTransform): Likewise.
Diffstat (limited to 'src/algebra/fortran.spad.pamphlet')
| -rw-r--r-- | src/algebra/fortran.spad.pamphlet | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/algebra/fortran.spad.pamphlet b/src/algebra/fortran.spad.pamphlet index cf46d763..e4012eeb 100644 --- a/src/algebra/fortran.spad.pamphlet +++ b/src/algebra/fortran.spad.pamphlet @@ -502,8 +502,8 @@ FortranCode(): public == private where operation (f:$):OP == elt(f,op)$Rep - common(name:Symbol,contents:List Symbol):$ == - [["common"]$OP,[[name,contents]$COMMON]$OPREC]$Rep + common(name':Symbol,contents':List Symbol):$ == + [["common"]$OP,[[name',contents']$COMMON]$OPREC]$Rep stop():$ == [["stop"]$OP,["null"]$OPREC]$Rep @@ -520,11 +520,11 @@ FortranCode(): public == private where comment(s:String):$ == [["comment"]$OP,[list s]$OPREC]$Rep - forLoop(r:SegmentBinding PIN,body:$):$ == - [["for"]$OP,[[r,(incr segment r)::PIN,body]$FOR]$OPREC]$Rep + forLoop(r:SegmentBinding PIN,body':$):$ == + [["for"]$OP,[[r,(incr segment r)::PIN,body']$FOR]$OPREC]$Rep - forLoop(r:SegmentBinding PIN,increment:PIN,body:$):$ == - [["for"]$OP,[[r,increment,body]$FOR]$OPREC]$Rep + forLoop(r:SegmentBinding PIN,increment:PIN,body':$):$ == + [["for"]$OP,[[r,increment,body']$FOR]$OPREC]$Rep goto(l:SingleInteger):$ == [["goto"]$OP,[l]$OPREC]$Rep |