1 files changed, 0 insertions, 83 deletions
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot
index ab05dbed..b16fb1da 100644
--- a/src/interp/setvars.boot
+++ b/src/interp/setvars.boot
@@ -357,89 +357,6 @@ displaySetVariableSettings(setTree,label) ==
       '" to see what the options are for",:bright subname,'".",'"%l",
         '"For more information, issue",:bright '")help set",'"."]
 
-
--- See the section compiler in setvart.boot.
--- 
---                   Current Values of  compiler  Variables                   
-
--- Variable     Description                           Current Value
--- -----------------------------------------------------------------
--- output       library in which to place compiled code     
--- input        controls libraries from which to load compiled code  
--- args         arguments for compiling AXIOM code         
---              -O -Fasy -Fao -Flsp -laxiom -Mno-AXL_W_WillObsolete 
---              -DAxiom -Y $AXIOM/algebra 
-
-
-
-setAsharpArgs arg ==
-  arg = "%initialize%" =>
-    $asharpCmdlineFlags := '"-O -Fasy -Fao -Flsp -laxiom -Mno-AXL__W__WillObsolete -DAxiom -Y $AXIOM/algebra"
-  arg = "%display%" =>
-    $asharpCmdlineFlags
-  (null arg) or (arg = "%describe%") or (first arg = '_?) =>
-    describeAsharpArgs()
-  $asharpCmdlineFlags := first(arg)
-
-
-describeAsharpArgs() ==
-  sayBrightly LIST (
-   '"%b",'")set compiler args ",'"%d",_
-   '"is used to tell AXIOM how to invoke the library compiler ",'"%l",_
-   '" when compiling code for AXIOM.",'"%l",_
-   '" The args option is followed by a string enclosed in double quotes.",'"%l",'"%l",_
-   '" The current setting is",'"%l",'"%b",'"_"",$asharpCmdlineFlags,'"_"",'"%d")
-
-
-setInputLibrary arg ==
-  arg = "%initialize%" =>
-   true
-  arg = "%display%" =>
-   [LIBRARY_-NAME(u) for u in INPUT_-LIBRARIES]
-  (null arg) or (arg = "%describe%") or (first arg = '_?) =>
-    describeInputLibraryArgs()
-  arg is [act, filename] and (act := selectOptionLC(act,'(add drop),nil)) =>
-    act = 'add => addInputLibrary TRUENAME STRINGIMAGE filename
-    act = 'drop => dropInputLibrary TRUENAME STRINGIMAGE filename
-  setInputLibrary nil
-
-
-setOutputLibrary arg ==
-  -- Hack to avoid initialising libraries in KCL:
-  true => false
-  arg = "%initialize%" =>
-    $outputLibraryName := nil
-  arg = "%display%" =>
-    $outputLibraryName or '"user.lib" 
-  (null arg) or (arg = "%describe%") or (first arg = '_?) =>
-    describeOutputLibraryArgs()
-  not ONEP(#arg) => setOutputLibrary nil
-  -- If the file already exists then use the complete pathname to help
-  -- keep track of it in the case the user issues )cd commands.
-  if FILEP (fn := STRINGIMAGE first arg) then fn := TRUENAME fn
-  openOutputLibrary($outputLibraryName := fn)
-
-
-describeOutputLibraryArgs() ==
-  sayBrightly LIST (
-   '"%b",'")set compiler output library",'"%d",_
-   '"is used to tell the compiler where to place", '"%l",_
-   '"compiled code generated by the library compiler.  By default it goes",'"%l",_
-   '"in a file called",'"%b", '"user.lib", '"%d", '"in the current directory." 
-    )
-
-
-describeInputLibraryArgs() ==
-  sayBrightly LIST (
-   '"%b",'")set compiler input add library",'"%d",_
-   '"is used to tell AXIOM to add", '"%b", '"library", '"%d", '"to",'"%l",
-   '"the front of the path which determines where compiled code is loaded from.",_
-   '"%l", '"%b",'")set compiler input drop library",'"%d",_
-   '"is used to tell AXIOM to remove", '"%b", '"library", '"%d", '%l,_
-   '"from this path."
-    )
-
-
 -- See the section expose in setvart.boot
 -- ---------------------- The expose Option ----------------------