diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/nruncomp.boot | 3 | ||||
| -rw-r--r-- | src/interp/package.boot | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index cfdb4394..728dccd1 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-10-07 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/nruncomp.boot: Remove unused variable $maximalViews. + * interp/package.boot: Likewise. + 2008-10-06 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/functor.boot (DescendCode): Update capsule directory only 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] |