diff options
author | dos-reis <gdr@axiomatics.org> | 2010-02-17 10:22:47 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-02-17 10:22:47 +0000 |
commit | 6506b2a44b3a06a1885ae394215c512898ffeef4 (patch) | |
tree | f9b91d2beba118efe322de956ecd3b871e922f91 /src/algebra/fortpak.spad.pamphlet | |
parent | e5fb9d979a16047d62bbe954ee08577088cdb497 (diff) | |
download | open-axiom-6506b2a44b3a06a1885ae394215c512898ffeef4.tar.gz |
* algebra/aggcat.spad.pamphlet: Remove unnecessary call to void.
* algebra/algext.spad.pamphlet: Likewise.
* algebra/catdef.spad.pamphlet: Likewise.
* algebra/curve.spad.pamphlet: Likewise.
* algebra/d01agents.spad.pamphlet: Likewise.
* algebra/d02agents.spad.pamphlet: Likewise.
* algebra/ffcg.spad.pamphlet: Likewise.
* algebra/ffhom.spad.pamphlet: Likewise.
* algebra/ffnb.spad.pamphlet: Likewise.
* algebra/ffp.spad.pamphlet: Likewise.
* algebra/formula.spad.pamphlet: Likewise.
* algebra/fortmac.spad.pamphlet: Likewise.
* algebra/fortpak.spad.pamphlet: Likewise.
* algebra/fortran.spad.pamphlet: Likewise.
* algebra/forttyp.spad.pamphlet: Likewise.
* algebra/generic.spad.pamphlet: Likewise.
* algebra/kl.spad.pamphlet: Likewise.
* algebra/mathml.spad.pamphlet: Likewise.
* algebra/newdata.spad.pamphlet: Likewise.
* algebra/out.spad.pamphlet: Likewise.
* algebra/permgrps.spad.pamphlet: Likewise.
* algebra/pfo.spad.pamphlet: Likewise.
* algebra/regset.spad.pamphlet: Likewise.
* algebra/routines.spad.pamphlet: Likewise.
* algebra/setorder.spad.pamphlet: Likewise.
* algebra/sups.spad.pamphlet: Likewise.
* algebra/symbol.spad.pamphlet: Likewise.
* algebra/tex.spad.pamphlet: Likewise.
Diffstat (limited to 'src/algebra/fortpak.spad.pamphlet')
-rw-r--r-- | src/algebra/fortpak.spad.pamphlet | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/algebra/fortpak.spad.pamphlet b/src/algebra/fortpak.spad.pamphlet index 28d032de..911ed3d5 100644 --- a/src/algebra/fortpak.spad.pamphlet +++ b/src/algebra/fortpak.spad.pamphlet @@ -206,7 +206,6 @@ NAGLinkSupportPackage() : exports == implementation where systemCommand("set fortran precision single")$MoreSystemCommands if _$nagMessages$Lisp then print("** Warning: Restoring fortran precision to single")$PrintPackage - void()$Void uniqueId : String := "" counter : Integer := 0 @@ -284,7 +283,6 @@ FortranPackage(): Exports == Implementation where command : String := concat(["sys rm -f ",target," ; cp ",source," ",target])$String systemCommand(command)$MoreSystemCommands - void()$Void linkToFortran(name:S,args:L U, decls:L L U, res:L(S)):SEX == makeFort(name,args,decls,res,NIL$Lisp,NIL$Lisp)$Lisp @@ -373,7 +371,6 @@ FortranOutputStackPackage() : specification == implementation where push!(string(_$fortranOutputFile$Lisp),fortranOutputStack) push!( fn::String,fortranOutputStack) systemCommand concat(["set output fortran quiet ", fn::String])$String - void() pushFortranOutputStack(fn:String):Void == if empty? fortranOutputStack then @@ -383,14 +380,12 @@ FortranOutputStackPackage() : specification == implementation where push!(string(_$fortranOutputFile$Lisp),fortranOutputStack) push!( fn,fortranOutputStack) systemCommand concat(["set output fortran quiet ", fn])$String - void() popFortranOutputStack():Void == if not empty? fortranOutputStack then pop! fortranOutputStack if empty? fortranOutputStack then push!("CONSOLE",fortranOutputStack) systemCommand concat(["set output fortran quiet append ",_ top fortranOutputStack])$String - void() clearFortranOutputStack():Stack String == fortranOutputStack := empty()@(Stack String) |