diff options
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 6875e76e..47c9f581 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -134,7 +134,7 @@ makeDomainTemplate vec == --NOTES: This function is called at compile time to create the template -- (slot 0 of the infovec); called by getInfovecCode from compDefineFunctor1 newVec := newShell # vec - for index in 0..MAXINDEX vec repeat + for index in 0..maxIndex vec repeat item := vec.index null item => nil newVec.index := @@ -333,7 +333,7 @@ extendsCategoryBasic(dom,u,v) == uVec := (compMakeCategoryObject(u,$EmptyEnvironment)).expr isCategoryForm(v,nil) => catExtendsCat?(u,v,uVec) v is ['SIGNATURE,op,sig] => - or/[uVec.i is [[=op,=sig],:.] for i in 6..MAXINDEX uVec] + or/[uVec.i is [[=op,=sig],:.] for i in 6..maxIndex uVec] u is ['CATEGORY,.,:l] => v is ['IF,:.] => member(v,l) nil |