diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-10-07 13:12:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-10-07 13:12:18 +0000 |
| commit | e7edec07aedf0c1fd83171db1235120bd0f6da4f (patch) | |
| tree | 383851b1cddf690014846d57a12b9fd1ab4ff3d2 /src/interp | |
| parent | 159814d5cc62f3367369a7309fdf32efd21dbb13 (diff) | |
| download | open-axiom-e7edec07aedf0c1fd83171db1235120bd0f6da4f.tar.gz | |
* interp/nruncomp.boot: Remove unused variable $maximalViews.
* interp/package.boot: Likewise.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/nruncomp.boot | 3 | ||||
| -rw-r--r-- | src/interp/package.boot | 2 |
2 files changed, 0 insertions, 5 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 15900a1e..db4bd860 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -362,7 +362,6 @@ buildFunctor($definition is [name,:args],sig,code,$locals,$e) == $catvecList: local := nil --list of vectors v1..vn for each view $hasCategoryAlist: local := nil --list of GENSYMs bound to (HasCategory ..) items $catNames: local := nil --list of names n1..nn for each view - $maximalViews: local := nil --list of maximal categories for domain (???) $catsig: local := nil --target category (used in ProcessCond) $SetFunctions: local := nil --copy of p view with preds telling when fnct defined $MissingFunctionInfo: local := nil --now useless @@ -377,7 +376,6 @@ buildFunctor($definition is [name,:args],sig,code,$locals,$e) == --set in InvestigateConditions to represent any additional --category membership tests that may be needed(see buildFunctor for details) ------------------------ - $maximalViews: local := nil oldtime:= TEMPUS_-FUGIT() [$catsig,:argsig]:= sig catvecListMaker:=REMDUP @@ -397,7 +395,6 @@ buildFunctor($definition is [name,:args],sig,code,$locals,$e) == nil $catvecList:= [domainShell,:[emptyVector for u in CADR domainShell.4]] $catNames := ['$] -- for DescendCode -- to be changed below for slot 4 - $maximalViews:= nil $SetFunctions:= newShell SIZE domainShell $MissingFunctionInfo:= newShell SIZE domainShell $catNames:= ['$,:[GENVAR() for u in rest catvecListMaker]] diff --git a/src/interp/package.boot b/src/interp/package.boot index 4faad1be..38ae9bd8 100644 --- a/src/interp/package.boot +++ b/src/interp/package.boot @@ -52,8 +52,6 @@ processPackage($definition is [name,:args],[$catsig,:argssig],code,locals,$e) == $GENNO: local:= 0 --for GENVAR() $catsig: local := nil --used in ProcessCond - $maximalViews: local := nil - --read by ProcessCond $ResetItems: local := nil --stores those items that get SETQed, and may need re-processing $catvecList: local:= [$domainShell] |