aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/nruncomp.boot7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index 728f3e99..18463c04 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -448,7 +448,6 @@ buildFunctor(db,sig,code,$locals,$e) ==
--LOCAL BOUND FLUID VARIABLES:
$GENNO: local:= 0 --bound in compDefineFunctor1, then as parameter here
$hasCategoryAlist: local := nil --list of GENSYMs bound to (HasCategory ..) items
- $catsig: local := nil --target category
$SetFunctions: local := nil --copy of p view with preds telling when fnct defined
$ConstantAssignments: local := nil --code for creation of constants
$epilogue: local := nil --code to set slot 5, things to be done last
@@ -462,12 +461,12 @@ buildFunctor(db,sig,code,$locals,$e) ==
--category membership tests that may be needed(see buildFunctor for details)
oldtime:= TEMPUS_-FUGIT()
- [$catsig,:argsig] := sig
+ [catsig,:argsig] := sig
catvecListMaker := removeDuplicates
- [comp($catsig,$EmptyMode,$e).expr,
+ [comp(catsig,$EmptyMode,$e).expr,
:[compCategories(u,$e) for [u,:.] in categoryAncestors dbDomainShell db]]
tbl := makeTable function valueEq?
- condCats := InvestigateConditions(db,[$catsig,:rest catvecListMaker],tbl,$e)
+ condCats := InvestigateConditions(db,[catsig,:rest catvecListMaker],tbl,$e)
-- a list, one %for each element of catvecListMaker
-- indicating under what conditions this
-- category should be present. true => always