From 03c3da037eca3d7d557784db3d3a9872ba2a2cb5 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 6 May 2012 15:13:16 +0000
Subject: misc cleanup

---
 src/interp/i-syscmd.boot | 42 ------------------------------------------
 1 file changed, 42 deletions(-)

(limited to 'src/interp/i-syscmd.boot')

diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index db0e0ffb..8e3d5867 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -1932,40 +1932,6 @@ load args == loadSpad2Cmd args
 loadSpad2Cmd args ==
     sayKeyedMsg("S2IU0003", nil)
     nil
---  load1(args,$forceDatabaseUpdate)
-
---load1(args,$forceDatabaseUpdate) ==  -- $ var is now local
---  null args => helpSpad2Cmd '(load)
---  loadfun := 'loadLib
---  justWondering := nil
---  compiler := 'old
---  doExpose := true
---  $forceDatabaseUpdate := true  -- BMT request, 5/14/90
---  for [opt,:.] in $options repeat
---    fullopt := selectOptionLC(opt,
---      '(cond update query new noexpose noupdate),
---        'optionError)
---    fullopt is 'cond     => loadfun := 'loadLibIfNotLoaded
---    fullopt is 'query    => justWondering := true
---    fullopt is 'update   => $forceDatabaseUpdate := true
---    fullopt is 'noexpose => doExpose := false
---    fullopt is 'noupdate => $forceDatabaseUpdate := false
---  if $forceDatabaseUpdate then clearClams()
---  for lib in args repeat
---    lib := object2Identifier lib
---    justWondering =>
---      dbLoaded? constructorDB lib => sayKeyedMsg("S2IZ0028",[lib])
---      sayKeyedMsg("S2IZ0029",[lib])
---    null getConstructorModuleFromDB lib and
---     null (lib := getConstructorFullNameFromDB lib) =>
---      sayKeyedMsg("S2IL0020", [namestring [lib,$spadLibFT,"*"]])
---    null FUNCALL(loadfun,lib) =>
---      sayKeyedMsg("S2IZ0029",[lib])
---    sayKeyedMsg("S2IZ0028",[lib])
---    if doExpose and
---       not isExposedConstructor(lib) then
---          setExposeAddConstr([lib])
---  'EndOfLoad
 
 reportCount () ==
   centerAndHighlight(" Current Count Settings ",$LINELENGTH,specialChar 'hbar)
@@ -2785,14 +2751,6 @@ processSynonyms() ==
 -- functions for interfacing to system commands from algebra code
 -- common lisp dependent
 
-tabsToBlanks s ==
-   k := charPosition($charTab,s,0)
-   n := #s
-   k < n =>
-      k = 0 => tabsToBlanks subString(s,1)
-      strconc(subString(s,0,k),$charBlank, tabsToBlanks subString(s,k + 1))
-   s
-
 doSystemCommand string ==
    string := strconc('")", EXPAND_-TABS string)
    LINE: local := string
-- 
cgit v1.2.3