diff options
Diffstat (limited to 'src/algebra/fortran.spad.pamphlet')
| -rw-r--r-- | src/algebra/fortran.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/fortran.spad.pamphlet b/src/algebra/fortran.spad.pamphlet index 19d6bb87..59de4cb1 100644 --- a/src/algebra/fortran.spad.pamphlet +++ b/src/algebra/fortran.spad.pamphlet @@ -417,11 +417,11 @@ FortranCode(): public == private where cnt : O := "CONTINUE"::O --sp : O := hspace(6-width lab) sp : O := hspace(_$fortIndent$Lisp -width lab) - LIST(STRCONC(STRINGIMAGE(lab)$Lisp,sp,cnt)$Lisp)$Lisp + LIST(STRCONC(string(label)$String,sp,cnt)$Lisp)$Lisp getGoto(label:SingleInteger):SEX == fortran2Lines( - LIST(STRCONC("GOTO ",STRINGIMAGE(label::O)$Lisp)$Lisp)$Lisp)$Lisp + LIST(STRCONC("GOTO ",string(label)$String)$Lisp)$Lisp)$Lisp getRepeat(repRec:LOOP):SEX == sw : Switch := NOT elt(repRec,switch)$LOOP |