diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-06 15:37:58 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-06 15:37:58 +0000 |
| commit | 64dee33447f6db28cfe4d6abe92e51bf4e70a2c6 (patch) | |
| tree | 3a813b7dd4d8ab537a9bf205a58816c4fac60c4d /src/interp/functor.boot | |
| parent | da4adc938b1a233283d8d56dc5192adf48175ba7 (diff) | |
| download | open-axiom-64dee33447f6db28cfe4d6abe92e51bf4e70a2c6.tar.gz | |
* interp/define.boot: Explicitly initialize fluid variables.
* interp/functor.boot: Likewise.
* interp/g-opt.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/nrunfast.boot: Likewise.
* interp/package.boot: Likewise.
* interp/parse.boot: Likewise.
* interp/pspad1.boot: Likewise.
* interp/record.boot: Likewise.
* interp/template.boot: Likewise.
* interp/trace.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index 5046c462..5026bc2e 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -50,10 +50,9 @@ keyItem a == DomainPrint(D,brief) == -- If brief is non-NIL, %then only a summary is printed - $WhereList: local - $Sublis: local - $WhereCounter: local - $WhereCounter:= 1 + $WhereList: local := nil + $Sublis: local := nil + $WhereCounter: local := 1 env:= not BOUNDP '$e => $EmptyEnvironment $e='$e => $EmptyEnvironment @@ -780,7 +779,7 @@ InvestigateConditions catvecListMaker == -- discover under what conditions the secondary view are -- always present. $Conditions: local:= nil - $principal: local + $principal: local := nil [$principal,:secondaries]:= catvecListMaker --We are not interested in the principal view --The next block allows for the possibility that $principal may |