diff options
Diffstat (limited to 'src/interp/showimp.boot')
-rw-r--r-- | src/interp/showimp.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/showimp.boot b/src/interp/showimp.boot index 5fcfc582..1b13836a 100644 --- a/src/interp/showimp.boot +++ b/src/interp/showimp.boot @@ -163,11 +163,11 @@ devaluateSlotDomain(u,dollar) == devaluate evalSlotDomain(u,dollar) getCategoriesOfDomain domain == - predkeyVec := domain.4.0 - catforms := second domain.4 + predkeyVec := first vectorRef(domain,4) + catforms := second vectorRef(domain,4) [fn for i in 0..maxIndex predkeyVec | test] where - test() == predkeyVec.i and - (x := catforms . i) isnt ['DomainSubstitutionMacro,:.] + test() == arrayRef(predkeyVec,i) and + (x := vectorRef(catforms,i)) isnt ['DomainSubstitutionMacro,:.] fn() == vector? x => devaluate x devaluateSlotDomain(x,domain) |