aboutsummaryrefslogtreecommitdiff
path: root/src/interp/nruncomp.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r--src/interp/nruncomp.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index c0c14683..7b9a7efe 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -435,7 +435,7 @@ stuffDomainSlots dollar ==
proto4 := infovec.3
vectorRef(dollar,4) :=
vector? CDDR proto4 => [COPY_-SEQ first proto4,:rest proto4] --old style
- bitVector := dollar.3
+ bitVector := domainPredicates dollar
predvec := first proto4
packagevec := second proto4
auxvec := LIST2VEC [fn for i in 0..maxIndex predvec] where fn() ==