From 6506b2a44b3a06a1885ae394215c512898ffeef4 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 17 Feb 2010 10:22:47 +0000
Subject: 	* 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.

---
 src/algebra/fortpak.spad.pamphlet | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'src/algebra/fortpak.spad.pamphlet')

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)
-- 
cgit v1.2.3