diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index c8c692a2..f982e494 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -393,15 +393,15 @@ stuffDomainSlots dollar == domname := devaluate dollar infovec := property(opOf domname,'infovec) lookupFunction := symbolFunction getLookupFun infovec - template := infovec.0 + template := first infovec if vectorRef(template,$AddChainIndex) then stuffSlot(dollar,$AddChainIndex,vectorRef(template,$AddChainIndex)) - for i in ($NRTbase + # rest domname)..maxIndex template + for i in ($NRTbase + # domname.args)..maxIndex template | item := vectorRef(template,i) repeat stuffSlot(dollar,i,item) - domainDirectory(dollar) := [lookupFunction,dollar,infovec.1] - domainAttributes(dollar) := infovec.2 - proto4 := infovec.3 + domainDirectory(dollar) := [lookupFunction,dollar,second infovec] + domainAttributes(dollar) := third infovec + proto4 := fourth infovec domainData(dollar) := vector? CDDR proto4 => [COPY_-SEQ first proto4,:rest proto4] --old style bitVector := domainPredicates dollar |