diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-17 16:55:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 16:55:39 +0000 |
| commit | 1642c3f8ce94264813f4d7ac79f24f16f5fb7ded (patch) | |
| tree | 9ad1840c79408767e5cac07c3c111f67928328f7 /src/interp/nruncomp.boot | |
| parent | f7ba5aa3dec20e2371ff9be8c7a9973a3a08cba8 (diff) | |
| download | open-axiom-1642c3f8ce94264813f4d7ac79f24f16f5fb7ded.tar.gz | |
* boot/tokens.boot: Translate maxIndex to MAXINDEX.
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index e9709f63..147f7875 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -426,7 +426,7 @@ stuffDomainSlots dollar == function lookupComplete template := infovec.0 if template.5 then stuffSlot(dollar,5,template.5) - for i in (6 + # rest domname)..MAXINDEX template | item := template.i repeat + for i in (6 + # rest domname)..maxIndex template | item := template.i repeat stuffSlot(dollar,i,item) dollar.1 := LIST(lookupFunction,dollar,infovec.1) dollar.2 := infovec.2 @@ -436,13 +436,13 @@ stuffDomainSlots dollar == bitVector := dollar.3 predvec := first proto4 packagevec := second proto4 - auxvec := LIST2VEC [fn for i in 0..MAXINDEX predvec] where fn() == + auxvec := LIST2VEC [fn for i in 0..maxIndex predvec] where fn() == not testBitVector(bitVector,predvec.i) => nil packagevec.i or true [auxvec,:CDDR proto4] getLookupFun infovec == - MAXINDEX infovec = 4 => infovec.4 + maxIndex infovec = 4 => infovec.4 'lookupIncomplete makeSpadConstant [fn,dollar,slot] == @@ -565,7 +565,7 @@ buildFunctor($definition is [name,:args],sig,code,$locals,$e) == NRTcheckVector domainShell == --RETURNS: an alist (((op,sig),:pred) ...) of missing functions alist := nil - for i in $NRTbase..MAXINDEX domainShell repeat + for i in $NRTbase..maxIndex domainShell repeat --Vector elements can be one of -- (a) T -- item was marked -- (b) NIL -- ??? |